需要帮助查找代码中的错误以过滤表单

Question

这是我用来尝试根据 txt 框中的日期过滤表单子表单的代码。代码有一个编译错误，在第三个 # 处停止并带有 "expect expression"，我不明白为什么。我从另一个地方得到了这个代码，并只是试图将它用于我的目的。我对vba.

一无所知

Private Sub btnDateRange_Click()
Me.Filter = "[tblDeliveries].[DeliveryID] Between #" & Me.StartDate & # AND #" & Me.EndDate & "#"
DoCmd.RunCommand acCmdApplyFilterSort
End Sub

谁能指出问题所在？谢谢。

Answer 1

使用正确的语法：

Private Sub btnDateRange_Click()
Me.Filter = "[tblDeliveries].[DeliveryID] Between #" & Format(Me.StartDate, "yyyy\/mm\/dd") & "# AND #" & Format(Me.EndDate, "yyyy\/mm\/dd") & "#"
Me.FilterOn = True
End Sub

需要帮助查找代码中的错误以过滤表单

need help finding error in code to filter form

ms-access

ms-access-2013