这是我用来尝试根据文本框中的日期过滤表单子窗体的代码。代码有一个编译错误,在带有"expect expression“的第三个#处停止,我不知道为什么。我从另一个地方获得了这段代码,并简单地尝试将其用于我的目的。我对vba一无所知。
Private Sub btnDateRange_Click()
Me.Filter = "[tblDeliveries].[DeliveryID] Between #" & Me.StartDate & # AND #" & Me.EndDate & "#"
DoCmd.RunCommand acCmdApplyFilterSort
End Sub
有没有人能指出问题所在?谢谢。
发布于 2020-05-31 15:07:52
使用正确的语法:
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
https://stackoverflow.com/questions/62108589
复制相似问题