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 - 通过时间戳过滤时出错

1 个答案: