access vba的語法問題

Question

在access底下做的表單

表單內有 兩個text
一個command 按下command 之後
list出現 從****/**/** 到 ****/**/** 這段時間內的紀錄
(這邊是TEXT5) (這邊是text6)


以下是我寫的 不知道哪邊錯了 一直沒辦法執行
請各位大大指教@@" 謝謝!

Private Sub Command5_Click()

Me!List22.RowSource = ""
a = Me!Text5
b = Me!Text6
s1 = " SELECT 員工編號,員工姓名,上班時間,下班時間 FROM 工作紀錄 WHERE 上班時間 > & a And 上班時間 < & b"

With Me!List22
.RowSourceType = "Table/Query"
.ColumnCount = 4
.ColumnWidths = "3cm;3cm;4cm;4cm"
.RowSource = s1

.ColumnHeads = True

End With
Me!List22.Requery
If Me!List22.ListCount = 0 Then
MsgBox "Sorry!查無下列紀錄資料." & Chr(10) & M
Else: Me!Label21.Caption = "相關紀錄資料計:" & Me!List22.ListCount - 1
End If

End Sub

謝謝 那如果要做一個按鈕 計算上禮拜一到禮拜天的紀錄
一個按鈕 計算上個月一號道30(31)號的紀錄應該怎麼寫

以上 請幫幫忙@@" 謝謝

Answer 1

就改這一句:
s1 = " SELECT 員工編號,員工姓名,上班時間,下班時間 FROM 工作紀錄 WHERE 上班時間 Between #" & me!text5 & "# And #" & me!text6 &"#;"

2007-01-03 16:58:37 補充：
1:往前推算的區間日期.要考量當日期是星期日是>查詢這個星期還是查>上一個星期的區間資料.下列是查>上一個星期的區間資料
Private Sub Command6_Click()
K1 = "今天日期" & DATE & "是" & Format(DATE, "aaa")
K2 = "上星期的星期一是" & IIf(Format(DATE, "W") = 1, DateAdd("D", -13, DATE), DateAdd("D", -(Format(DATE, "W") 5), DATE))

2007-01-03 16:59:03 補充：
接上段

2007-01-03 17:00:01 補充：
K3 = "上星期的星期日" & IIf(Format(DATE, "W") = 1, DateAdd("D", -13 6, DATE), DateAdd("D", -(Format(DATE, "W") - 1), DATE))
MsgBox K1 & Chr(10) & K2 & Chr(10) & K3
End Sub
不知道你設計的模式.你自行將上述多餘的文字刪除.在加上你自行設計的語法應該就可以套用.
2:月份直接將日期 FORMAT([日期],"yyyy/mm") 就可以作篩選值.

2007-01-03 17:01:43 補充：
DateAdd("D", -13 6, DATE),更正=>DateAdd("D", -7, DATE),

2007-01-03 17:49:11 補充：
DateAdd("D", -(Format(DATE, "W") 5), DATE))
更正=>DateAdd("D", -(Format(DATE, "W") ＋5), DATE))