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:

• Xin hướng dẫn cách nhập số vào textbox
• Import file .DBF thành table cua access
• Kết nối SQL server với Access
• Chuyên đề Access nâng cao - Viết các Function(Hàm) trong Modules - CSDL là Sổ Quỹ Tiền Mặt
• Chỉ giùm việc chuyển dữ liệu sang hàng ngang
• Cần giúp đỡ gấp
• Hỏi về cách tô màu từ tìm kiếm và mở 1 form mới từ form trước đó
• [hỏi] cập nhập dữ liệu trên sub form
• Hướng dẫn tạo MeNu cho file Access bằng Macro
• Giúp mình bắt lỗi khi người dùng nhấn Alt + F4

[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