MS Access 2010 - 通過時間戳過濾的錯誤

Question

當我嘗試在保存後在子窗體上設置過濾器時，出現以下代碼時出現錯誤。這是代碼。

嘗試1：

Dim rsNow As Date 

rsNow = DLookup("Auftrag_Datum", "tblKundenliste", "[Auftrag_Datum] <= Now()") 
'Debug.Print rsNow 
Forms![MAIN_Planung]![frmPlanungDatenblatt].Form.Filter = "[Auftrag_Datum] = " & rsNow 
Forms![MAIN_Planung]![frmPlanungDatenblatt].Form.FilterOn = True 

這裏談到的錯誤3075但是，爲什麼？然後我嘗試：

Dim rsNow As Date 

rsNow = DLookup("Auftrag_Datum", "tblKundenliste", "[Auftrag_Datum] <= Now()") 
'Debug.Print rsNow 
Forms![MAIN_Planung]![frmPlanungDatenblatt].Form.Filter = "[Auftrag_Datum] = '" & rsNow & "'" 
Forms![MAIN_Planung]![frmPlanungDatenblatt].Form.FilterOn = True 

但是那麼錯誤是3464！？我也試圖Dim As String，但仍然是一樣的錯誤。

請幫幫我。

最好的greetz和THX。

Answer 1

應用正確格式爲字符串表示rsNow的：

Forms![MAIN_Planung]![frmPlanungDatenblatt].Form.Filter = "[Auftrag_Datum] = #" & Format(rsNow, "yyyy\/mm\/dd hh\:nn\:ss") & "#"