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") & "#"