MS Access按日期范围筛选：拆分窗体搜索按钮代码技术问询

你的代码已经有了核心框架，但存在截断和潜在的日期格式问题，我帮你完善并解释关键细节：

完整修正后的VBA代码 #

Private Sub btnSearch_Click() ' 搜索按钮点击事件
    Call Search
End Sub

Sub Search()
    Dim strCriteria As String, task As String
    Me.Refresh
    
    ' 检查日期输入完整性
    If IsNull(Me.txtDateFrom) Or IsNull(Me.txtDateTo) Then
        MsgBox "请输入完整的日期范围", vbInformation, "需要日期范围"
        Me.txtDateFrom.SetFocus
        Exit Sub ' 终止后续执行，避免无效代码运行
    End If
    
    ' 验证日期顺序合理性
    If Me.txtDateFrom > Me.txtDateTo Then
        MsgBox "开始日期不能晚于结束日期", vbExclamation, "日期错误"
        Me.txtDateFrom.SetFocus
        Exit Sub
    End If
    
    ' 构建筛选条件：用Format确保日期格式符合Access SQL要求
    strCriteria = "[DateRecorded] >= #" & Format(Me.txtDateFrom, "mm/dd/yyyy") & "# " & _
                  "AND [DateRecorded] <= #" & Format(Me.txtDateTo, "mm/dd/yyyy") & "#"
    
    ' 应用筛选到拆分窗体
    task = "SELECT * FROM [你的数据表名称] WHERE " & strCriteria
    Me.RecordSource = task
    Me.Requery ' 刷新窗体显示最新筛选结果
End Sub

关键修复与优化说明 #

• 补全截断的代码：你原代码在Me.txtDat...处截断，现在完整拼接了结束日期的筛选逻辑。
• 日期格式兼容性：使用Format()函数将文本框日期转为mm/dd/yyyy格式，避免因系统区域设置不同导致的日期解析错误（Access SQL默认识别该格式）。
• 增加输入验证：添加了日期顺序检查，防止用户输入逻辑错误的日期范围。
• 稳定的筛选方式：通过修改窗体RecordSource应用筛选，比直接使用Filter属性更适配拆分窗体的特性。
• 注意替换占位符：记得把代码中的[你的数据表名称]替换为你实际使用的数据表名称。

针对含时间字段的额外优化 #

如果你的DateRecorded字段包含时间部分，想要筛选一整天的记录，可以调整结束日期的判断逻辑：

strCriteria = "[DateRecorded] >= #" & Format(Me.txtDateFrom, "mm/dd/yyyy") & "# " & _
              "AND [DateRecorded] < #" & Format(DateAdd("d", 1, Me.txtDateTo), "mm/dd/yyyy") & "#"

这样会包含结束日期当天的所有时间点，而不会漏掉晚于0点的记录。

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