query between Date
กระทู้เก่าบอร์ด อ.สุภาพ ไชยา

 233   1
URL.หัวข้อ / URL
query between Date

อาจารย์ค่ะ จาก 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

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

1 Reply in this Topic. Dispaly 1 pages and you are on page number 1

1 @R06753
   
@ ประกาศใช้งานเว็บบอร์ดใหม่ => บอร์ดเรียนรู้ Access สำหรับคนไทย
แล้วจะใส่ลิ้งอ้างอิงมาที่โพสต์เก่านี้หรือไม่ก็ตามสะดวกครับ
Time: 0.0728s