Giúp câu lệnh "Between...and..."

[anhlateo1108]

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!

View more random threads:

• Hàm tính số ngày trong tháng
• Cần Giúp đỡ về giải thuật Tính Toán " Giá Trị Hàng Tồn Kho "
• Ai giúp mình đoạn code chạy Query với !
• Tạo Menu trong Access
• Bấm nút có thêm Record đã điền trong textbox
• Vấn đề xóa dữ liệu trên Form( Khi Form đang mở bởi 2 người)
• Bẫy lỗi trong Access bằng VBA
• Làm thế nào để chặn thông báo lỗi của Query !
• Help me: Lọc dữ liệu qua 2 combobox.???
• Kiểm tra trùng lặp khóa chinh trong Access

[huongcao]

Ðề: Giúp câu lệnh "Between...and..."

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!

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

[tungbkhd]

Ðề: Giúp câu lệnh "Between...and..."

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

Hoặc cũng có thể dừng như sau

[COLOR=#000000]
Sub [/COLOR][COLOR=#007700]......()    [/COLOR][COLOR=#0000BB]Dim rs [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Recordset    Dim sqlS [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]QueryDef    Set sqlS [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CurrentDb[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]QueryDefs[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"qryTrich"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]Set rs [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]OpenRecordset[/COLOR][COLOR=#007700]()    ................[/COLOR][COLOR=#0000BB]End Sub[/COLOR] 

Trong đó qryTrich chính là cái query của bạn muốn dùng
Thân

[adviser]

Ðề: Giúp câu lệnh "Between...and..."

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

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 # đó.

[danghongquang]

Ðề: Giúp câu lệnh "Between...and..."

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 # đó.

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

[kevinvu1987]

Ðề: Giúp câu lệnh "Between...and..."

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 # đó.

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)

[calebss]

Ðề: Giúp câu lệnh "Between...and..."

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)

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.

[appsmart]

Ðề: 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] & """"

[stst575]

Ðề: 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!

[loctongbietthu]

Ðề: 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!

[COLOR=#000000]
Sub [/COLOR][COLOR=#007700].....()    [/COLOR][COLOR=#0000BB]Dim rs [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Recordset    Dim sqlS [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]QueryDef    Dim NgayDau [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Date    Dim NgayCuoi [/COLOR][COLOR=#007700]As [/COLOR][COLOR=#0000BB]Date    NgayDau [/COLOR][COLOR=#007700]=[[/COLOR][COLOR=#0000BB]Forms[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]F1[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]TuNgay[/COLOR][COLOR=#007700]]    [/COLOR][COLOR=#0000BB]NgayCuoi [/COLOR][COLOR=#007700]= [[/COLOR][COLOR=#0000BB]Forms[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]F1[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]DenNgay[/COLOR][COLOR=#007700]]    [/COLOR][COLOR=#0000BB]KhachNao [/COLOR][COLOR=#007700]=[[/COLOR][COLOR=#0000BB]Forms[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]F1[/COLOR][COLOR=#007700]]![[/COLOR][COLOR=#0000BB]KhachX[/COLOR][COLOR=#007700]]    [/COLOR][COLOR=#0000BB]Set sqlS [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]CurrentDb[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]QueryDefs[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"qryTrich"[/COLOR][COLOR=#007700])    [/COLOR][COLOR=#0000BB]sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Parameters[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"TuNgay"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]NgayDau    sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Parameters[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"DenNgay"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]NgayCuoi    sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]Parameters[/COLOR][COLOR=#007700]([/COLOR][COLOR=#DD0000]"KhachNao"[/COLOR][COLOR=#007700]) = [/COLOR][COLOR=#0000BB]KhachNao    Set rs [/COLOR][COLOR=#007700]= [/COLOR][COLOR=#0000BB]sqlS[/COLOR][COLOR=#007700].[/COLOR][COLOR=#0000BB]OpenRecordset[/COLOR][COLOR=#007700]()    .........    ................[/COLOR][COLOR=#0000BB]End Sub  [/COLOR] 

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