对窗体记录中的日期按年月进行筛选一直比较困惑，看了微软支持的提示：

目标：包含当前月内的日期

筛选条件：Year([销售日期]) = Year(Now()) And Month([销售日期]) = Month(Now())

结果：返回日期在当前月内的项目。如果当前日期为 2/2/2012，则您将看到 2012 年 2 月的项目。

我尝试用窗体的filter属性来对年和月进行筛选：

在主窗体中的ComboYear和ComboMonth组合框中分别输入年号和月份，如2018，1。然后对子窗体sfExpenseList中的记录进行筛选。

代码如下：

Dim strSQL as String

strSQL = "Year(PayDate) =" & Me.ComboYear & " AND Month(PayDate) =" & Me.ComboMonth

Me.sfExpenseList.Form.Filter = strSQL
Me.sfExpenseList.Form.FilterOn = True

如果要应用其他的筛选条件，请参考微软支持：

https://support.office.com/zh-cn/article/%E5%9C%A8-Access-%E6%9F%A5%E8%AF%A2%E4%B8%AD%E4%BD%BF%E7%94%A8%E6%97%A5%E6%9C%9F%E4%BD%9C%E4%B8%BA%E6%9D%A1%E4%BB%B6%E7%9A%84%E7%A4%BA%E4%BE%8B-AEA83B3B-46EB-43DD-8689-5FC961F21762

希望对大家有帮助。