Board logo

標題: AccessVBA時間查詢 [打印本頁]

作者: windclover    時間: 2015-3-23 06:50     標題: AccessVBA時間查詢

請問如何把時間寫進去~
目前都會跳錯。
我的日期格式預設為yyyy/mm/dd hh:nn,有計算到分秒
請問是哪裡要修改呢??
[attach]20482[/attach]
Private Sub 查詢_Click()
    FltStr = ""
    If IsNull(Me![sch查詢]) = False Then FltStr = "sch like [sch查詢] and"
    If IsNull(Me![owner查詢]) = False Then FltStr = FltStr & " owner代碼 like '*" & Me![owner查詢] & "*' and"
        If IsNull(Me![借出時間起]) = False Then
        If IsNull(Me![借出時間迄]) = False Then
            FltStr = FltStr & "借出時間 between #" & Me![借出時間起] & "# and #" & Me![借出時間迄] & "# and"
        Else
            FltStr = FltStr & " 借出時間 between #" & Me![借出時間起] & "# and #" & Date & "# and"
        End If
    Else
        If IsNull(Me![借出時間迄]) = False Then
            FltStr = FltStr & " 借出時間 between #" & Date & "# and #" & Me![借出時間迄] & "# and"
        End If
    End If
   
    If FltStr = "" Then
        Me![時間查詢子表單].Form.FilterOn = False
    Else
        FltStr = Mid(FltStr, 1, Len(FltStr) - 4)
        Me![時間查詢子表單].Form.Filter = FltStr
        Me![時間查詢子表單].Form.FilterOn = True
    End If
End Sub
作者: aa7551    時間: 2015-3-23 20:26

在錯誤訊息中已指出,between  date and  date+time錯誤
作者: windclover    時間: 2015-3-24 17:51

要怎麼寫比較好阿?
作者: windclover    時間: 2015-3-26 01:22

自己想出方法了!!
作者: mmxxxx    時間: 2015-7-1 10:00

是不是後面的日期時間少了#號?
作者: t1072825    時間: 2020-9-19 18:02

謝謝 我也有同樣問題




歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)