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，但还是一样的错误。

请帮助我。

最好的问候和THX。

Answer 1

为 rsNow 的字符串表示形式应用正确的格式：

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

MS Access 2010 - 通过时间戳过滤时出错

MS Access 2010 - Error with filtering via Timestamp

ms-access

vba

ms-access-2010