MS Access窗体跨年度年月组合框日期范围筛选失效求解

跨年度筛选失效由两个核心问题导致：

• 文本比较逻辑错误：Month_Worked字段存储的是MM.YYYY格式的文本值，直接使用Between做字符串比较时，会按从左到右的字符顺序判定大小，而非真实年月的时间顺序。例如字符串比较规则下01.2022会被判定为小于06.2021，直接导致跨年区间判断为空；同一年度内因为年份后缀完全一致，仅比较前两位月份值时逻辑正常。
• 下拉联动刷新不完整：年份选择变更后仅刷新了对应侧的月份组合框，另一侧月份选项未同步更新，极端场景下会出现可选月份范围不匹配的问题。

1. 重写筛选逻辑，转换为日期类型比较 #

将MM.YYYY格式的文本统一转换为对应月份第一天的日期值再做区间比较，从根本上解决字符串排序错误的问题，替换原有FilterString函数即可：

Function FilterString() As String
    Dim strReturn As String
    Dim strStart As String, strEnd As String
    Dim dtStart As Date, dtEnd As Date
    strReturn = ""
    ' 校验所有筛选必填控件已填写
    If IsNull(Me!cboStart) Or IsNull(Me!cboEnd) _
        Or IsNull(Me!cmb_YearFrom) Or IsNull(Me!cmb_YearTo) Then GoTo Fn_Exit
    
    strStart = Me!cboStart
    strEnd = Me!cboEnd
    ' 拆分MM.YYYY格式文本，转换为当月1号的日期值
    dtStart = DateSerial(Split(strStart, ".")(1), Split(strStart, ".")(0), 1)
    dtEnd = DateSerial(Split(strEnd, ".")(1), Split(strEnd, ".")(0), 1)
    
    ' 拼接筛选条件，日期常量使用#包裹，统一用yyyy/mm/dd格式规避区域格式问题
    strReturn = "DateSerial(Split(Month_Worked,'.')(1), Split(Month_Worked,'.')(0),1) " & _
                "Between #" & Format(dtStart, "yyyy/mm/dd") & "# And #" & Format(dtEnd, "yyyy/mm/dd") & "#"
Fn_Exit:
    FilterString = strReturn
End Function

如果Month_Worked本身是日期/时间类型，仅组合框显示格式设为MM.YYYY，可省略Split转换逻辑，直接拼接字段与日期常量比较即可。

2. 补全年份联动逻辑，增加合法性校验 #

调整两个年度选择框的更新后事件，增加年份范围合法性校验，同时刷新两侧月份组合框的选项：

Private Sub cmb_YearTo_AfterUpdate()
    ' 阻止截止年份早于起始年份的非法输入
    If Not IsNull(Me.cmb_YearFrom) And Me.cmb_YearTo < Me.cmb_YearFrom Then
        MsgBox "截止年份不能早于起始年份", vbExclamation
        Me.cmb_YearTo = Me.cmb_YearFrom
        Exit Sub
    End If
    ' 清空已选月份，刷新两侧月份下拉选项
    cboStart = Null
    cboEnd = Null
    cboStart.Requery
    cboEnd.Requery
    ' 触发筛选更新
    UpdateFilter
    Me.Requery
End Sub

Private Sub cmb_YearFrom_AfterUpdate()
    ' 阻止起始年份晚于截止年份的非法输入
    If Not IsNull(Me.cmb_YearTo) And Me.cmb_YearFrom > Me.cmb_YearTo Then
        MsgBox "起始年份不能晚于截止年份", vbExclamation
        Me.cmb_YearFrom = Me.cmb_YearTo
        Exit Sub
    End If
    ' 清空已选月份，刷新两侧月份下拉选项
    cboStart = Null
    cboEnd = Null
    cboStart.Requery
    cboEnd.Requery
    ' 触发筛选更新
    UpdateFilter
    Me.Requery
End Sub

3. （可选优化）调整月份组合框行来源排序 #

如果月份下拉列表的排序出现10月、11月、12月排在1月后面的问题，可将组合框行来源SQL的排序规则改为按真实年月排序，示例（假设存储年月选项的表为tbl_RecordMonths）：

SELECT DISTINCT Month_Worked FROM tbl_RecordMonths
ORDER BY DateSerial(Split(Month_Worked,'.')(1), Split(Month_Worked,'.')(0), 1)

内容的提问来源于stack exchange，提问作者Berk