อาจารย์ค่ะ จาก Code ข้างล่างนี้ ได้ copy มาจากอาจารย์ที่เคยให้ไว้ เพื่อที่จะเอามาใช้อีกที่หนึ่ง แต่พอ run ดูแล้ว มันไม่ได้ค่ะ ควรจะแก้ไปตรงไหนค่ะ
ส่วนๆ sql ดังนี้ค่ะ
SELECT qrytogether1.*, IIf(IsNull([Date]),0,CDbl([Date])) AS Expr1
FROM qrytogether1
WHERE (((IIf(IsNull([Date]),0,CDbl([Date])))=37600));


Private Sub Command8_Click()
Dim db As DAO.Database
Dim QD As DAO.QueryDef
Dim where As Variant
Set db = CurrentDb()

On Error Resume Next

db.QueryDefs.Delete ("qrySearch")
On Error GoTo 0

where = Null

If Me.StartDate <> "" Then
If Me.EndDate <> "" Then
If where <> "" Then
where = where & " AND Cdbl(DateOut) Between " & CDbl(Me.StartDate) & " And " & CDbl(Me.EndDate)
Else
where = "Cdbl(DateOut) Between " & CDbl(Me.StartDate) & " And " & CDbl(Me.EndDate)
End If
Else
If where <> "" Then
where = strWhere & " AND Cdbl(DateOut)=" & CDbl(Me.StartDate)
Else
where = "CDbl(DateOut)=" & CDbl(Me.StartDate)
End If
End If
End If

Set QD = db.CreateQueryDef("qrySearch", _
"Select * from qrytogether1 " & (" where " + Mid(where, 6) & ";"))

'qdf.SQL = strWhere
'DoCmd.OpenForm "frmincloudtogethersub"
Me.frmincloudtogethersub.Form.RecordSource = "qrySearch"

End Sub

ขอรบกวนอาจารย์อีกครั้งนะค่ะ สำหรับเรื่องนี้