Giúp Câu Lệnh "Between...and..." - Dân Kế Toán

Menu

• Trang chủ
• Diễn đàn Bài viết mới Tìm chủ đề
• Có gì mới Bài viết mới Hoạt động mới nhất
• Thành viên Đăng ký Thành viên trực tuyến

Đăng nhập Có gì mới? Tìm kiếm

Tìm kiếm

Everywhere Chủ đề This forum This thread Chỉ tìm trong tiêu đề Bởi: Tìm Tìm kiếm nâng cao…

• Bài viết mới
• Tìm chủ đề

Menu Đăng nhập

• Diễn đàn
• Tin học kế toán
• Dân kế toán và Access
• Access và VBA

You are using an out of date browser. It may not display this or other websites correctly.You should upgrade or use an alternative browser. Giúp câu lệnh "Between...and..."

• Thread starter bchip
• Ngày gửi 16/7/10

B

bchip

New Member

Hội viên mới Trong Access, tui có 1 query với câu lệnh SQL như sau: SELECT [T1].NGAY, [T1].KHACH, [T1].GIATRI FROM [T1] WHERE ((([T1].NGAY) Between [Forms]![F1]![tungay] And [Forms]![F1]![denngay]) AND (([T1].KHACH)=[Forms]![F1]![KHACHX])); Trong code khi muốn xét: Dim rs as Recodeset Set rs = CurrentDb.OpenRecodeset ("...") Như vậy, tui muốn đặt câu lệnh SQL trên vào dấu "..." thì viết như thế nào? Nhờ các ace giúp đở. Cám ơn nhiều!

phatnq2002

Tích cực giảm cân...

Hội viên mới Ðề: Giúp câu lệnh "Between...and..."

bchip nói: Trong Access, tui có 1 query với câu lệnh SQL như sau: "SELECT [T1].NGAY, [T1].KHACH, [T1].GIATRI FROM [T1] WHERE [T1].NGAY Between #" & Format([Forms]![F1]![tungay], "mm/dd/yy") & "# And #" & Format([Forms]![F1]![denngay], "mm/dd/yy") & " AND [T1].KHACH= '" & [Forms]![F1]![KHACHX] & "'" Trong code khi muốn xét: Dim rs as Recodeset Set rs = CurrentDb.OpenRecodeset ("...") Như vậy, tui muốn đặt câu lệnh SQL trên vào dấu "..." thì viết như thế nào? Nhờ các ace giúp đở. Cám ơn nhiều! Nhấn để mở rộng...

Có thể sử dụng như đoạn trên chuỗi trên.

xuanthanh

Member

Hội viên mới Ðề: Giúp câu lệnh "Between...and..."

phatnq2002 nói: Có thể sử dụng như đoạn trên chuỗi trên. Nhấn để mở rộng...

Hoặc cũng có thể dừng như sau PHP: Sub ......() Dim rs As Recordset Dim sqlS As QueryDef Set sqlS = CurrentDb.QueryDefs("qryTrich") Set rs = sqlS.OpenRecordset() ................ End Sub Trong đó qryTrich chính là cái query của bạn muốn dùng Thân B

bchip

New Member

Hội viên mới Ðề: Giúp câu lệnh "Between...and..."

phatnq2002 nói: Có thể sử dụng như đoạn trên chuỗi trên. Nhấn để mở rộng...

Em đã thử đặt chuỗi trên vào nhưng chương báo lỗi. Anh xem lại dùm em nhé. P/s: Hơn nữa em thấy chuỗi trên có lẽ thiếu dấu # ở trong format "denngay", nhưng khi em thêm dấu # vào máy báo lổi ngay dấu # đó. C

chip2006

New Member

Hội viên mới Ðề: Giúp câu lệnh "Between...and..."

bchip nói: Em đã thử đặt chuỗi trên vào nhưng chương báo lỗi. Anh xem lại dùm em nhé. P/s: Hơn nữa em thấy chuỗi trên có lẽ thiếu dấu # ở trong format "denngay", nhưng khi em thêm dấu # vào máy báo lổi ngay dấu # đó. Nhấn để mở rộng...

Bạn thử dùng cách này xem. Dim rs As New Recordset Dim mstr as String mstr = "SELECT [T1].NGAY, [T1].KHACH, [T1].GIATRI " & _ " FROM [T1] " & _ " WHERE ([T1].NGAY Between #" & format([Forms]![F1]![tungay],"mm/dd/yyyy") & "# And #" & format([Forms]![F1]![denngay],"mm/dd/yyyy") & "#) AND [T1].KHACH=""" & [Forms]![F1]![KHACHX] & """" rs.Open mstr, CodeProject.Connection

phatnq2002

Tích cực giảm cân...

Hội viên mới Ðề: Giúp câu lệnh "Between...and..."

bchip nói: Em đã thử đặt chuỗi trên vào nhưng chương báo lỗi. Anh xem lại dùm em nhé. P/s: Hơn nữa em thấy chuỗi trên có lẽ thiếu dấu # ở trong format "denngay", nhưng khi em thêm dấu # vào máy báo lổi ngay dấu # đó. Nhấn để mở rộng...

Vậy cái field KHACHX là kiểu gì? Text hay Number? Nếu là Number thì bỏ hai cấu dấu nháy đơn trước và sau đi (ở cái khách cuối) B

bchip

New Member

Hội viên mới Ðề: Giúp câu lệnh "Between...and..."

phatnq2002 nói: Vậy cái field KHACHX là kiểu gì? Text hay Number? Nếu là Number thì bỏ hai cấu dấu nháy đơn trước và sau đi (ở cái khách cuối) Nhấn để mở rộng...

Field KHACHX của em là Text anh ơi. Anh thử giúp em nhé! Cám ơn! ------------------ P/s: Vì nhiều việc quá nên replay chậm, anh thông cảm.

muontennguoi

Member

Thành viên BQT Super Moderators Ðề: Giúp câu lệnh "Between...and..." Chắc tại cái dấu chấm than. mstr = "SELECT [T1].NGAY, [T1].KHACH, [T1].GIATRI " & _ " FROM [T1] " & _ " WHERE ([T1].NGAY Between #" & format([F1].[tungay],"mm/dd/yyyy") & "# And #" & format([F1].[denngay],"mm/dd/yyyy") & "#) AND [T1].KHACH=""" & [F1].[KHACHX] & """" B

bchip

New Member

Hội viên mới Ðề: Giúp câu lệnh "Between...and..." Mình đã áp dụng hết cách trong chủ đề này chỉ rồi, nhưng vẫn chưa được. Chương trình báo lỗi: Run-time error '3061': Too few parameters. Expected 1. Help help help!

xuanthanh

Member

Hội viên mới Ðề: Giúp câu lệnh "Between...and..."

bchip nói: Mình đã áp dụng hết cách trong chủ đề này chỉ rồi, nhưng vẫn chưa được. Chương trình báo lỗi: Run-time error '3061': Too few parameters. Expected 1. Help help help! Nhấn để mở rộng...

PHP: Sub .....() Dim rs As Recordset Dim sqlS As QueryDef Dim NgayDau As Date Dim NgayCuoi As Date NgayDau =[Forms]![F1]![TuNgay] NgayCuoi = [Forms]![F1]![DenNgay] KhachNao =[Forms]![F1]![KhachX] Set sqlS = CurrentDb.QueryDefs("qryTrich") sqlS.Parameters("TuNgay") = NgayDau sqlS.Parameters("DenNgay") = NgayCuoi sqlS.Parameters("KhachNao") = KhachNao Set rs = sqlS.OpenRecordset() ......... ................ End Sub qryTrich : SELECT T1.Ngay, T1.Khach, T1.GiaTri FROM T1 WHERE (((T1.Ngay) Between [TuNgay] And [DenNgay]) AND ((T1.Khach) Like [KhachNao])); Thử xem. Âu lá đúng Thân Sửa lần cuối: 30/7/10 B

bchip

New Member

Hội viên mới Ðề: Giúp câu lệnh "Between...and..."

xuanthanh nói: PHP: Sub .....() Dim rs As Recordset Dim sqlS As QueryDef Dim NgayDau As Date Dim NgayCuoi As Date NgayDau =[Forms]![F1]![TuNgay] NgayCuoi = [Forms]![F1]![DenNgay] KhachNao =[Forms]![F1]![KhachX] Set sqlS = CurrentDb.QueryDefs("qryTrich") sqlS.Parameters("TuNgay") = NgayDau sqlS.Parameters("DenNgay") = NgayCuoi sqlS.Parameters("KhachNao") = KhachNao Set rs = sqlS.OpenRecordset() ......... ................ End Sub qryTrich : SELECT T1.Ngay, T1.Khach, T1.GiaTri FROM T1 WHERE (((T1.Ngay) Between [TuNgay] And [DenNgay]) AND ((T1.Khach) Like [KhachNao])); Thử xem. Âu lá đúng Thân Nhấn để mở rộng...

OK...thành công rồi. Cám ơn bác rất là nhiều! ------P/s: Bác cho mình xin số phone nhé. Có dịp mình mời bác 1 chầu...See you!

xuanthanh

Member

Hội viên mới Ðề: Giúp câu lệnh "Between...and..." Email : [email protected] Mobile : 0982136217 Thân Bạn phải đăng nhập hoặc đăng ký để bình luận. Chia sẻ: Facebook Reddit Pinterest Tumblr WhatsApp Email Chia sẻ Link

CẨM NANG KẾ TOÁN TRƯỞNG

Liên hệ: 090.6969.247

KÊNH YOUTUBE DKT

Cách làm file Excel quản lý lãi vay

Đăng ký kênh nhé cả nhà

SÁCH QUYẾT TOÁN THUẾ

Liên hệ: 090.6969.247

• Diễn đàn
• Tin học kế toán
• Dân kế toán và Access
• Access và VBA

Top