使用DateSerial的表单筛选器无法正常工作

Question

我正在尝试在日期之间过滤表单 - 下个月的第一个和最后一个。我的最后编码似乎工作。我还做了一个文本框，它确实返回了我想要的日期，但过滤器中的相同代码是从2013年1月1日起返回日期。

Public Function DtFrom() As Date

    DtFrom = DateSerial(Year(Date), Month(Date) + 1, 1)

End Function

Me.Filter = "[DateDue] Between #" & DtFrom & "# And #" & (DateSerial(Year(Date), Month(Date) + 2, 1) - 1) & "#"

Answer 1

“[DateDue]之间＃”＆amp; DtFrom（）＆amp; “＃和＃”＆amp;

确保你正在调用函数DtFrom（）'是的你需要括号