我正在尝试过滤日期之间的表格 - 下个月的第一天和最后一个月。我最后的编码似乎有效。我还制作了一个文本框,它确实返回了我想要的日期,但过滤器中的相同代码返回了 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) & "#"