Access窗体日期范围筛选后打开报表筛选失效的VBA问题

问题场景 #

在Microsoft Access数据库中，存在名为frmGesamt的业务窗体，窗体上配置了txtVomAll（起始日期）、txtBisAll（结束日期）两个日期输入控件，用于选择日期区间实现数据范围筛选。
点击窗体上的「search」按钮时，系统会展示符合日期筛选条件的数据，按钮绑定的可用VBA代码如下：

Private Sub cmd_SAll_Click()
Dim strCriteria, task As String

Me.Refresh
If IsNull(Me.txtVomAll) Or IsNull(Me.txtBisAll) Then
    MsgBox "Please enter date range", vbInformation, "date range"
    Me.txtVomAll.SetFocus
Else
    strCriteria = "([BestellDatum] >= #" & Format(Me.txtVomAll, "yyyy\/mm\/dd") & "# And [BestellDatum] <= #" & Format(Me.txtBisAll, "yyyy\/mm\/dd") & "#)"
    task = "select * from qryFürFormular where(" & strCriteria & ") order by [BestellDatum]"
    DoCmd.ApplyFilter task
End If
End Sub

当前需要实现的需求为：点击窗体上的「report」按钮时，生成自动携带上述日期筛选条件的对应报表。原有写在报表Open事件中的VBA代码运行后无法实现筛选传递效果，原错误代码如下：

Private Sub Report_Open(Cancel As Integer)
Dim frm As Form
Dim strFilter, task As String
Set frm = Forms!frmGesamt
strFilter = ""
If IsNull("" & frm!txtVomAll) Or IsNull("" & frm!txtBisAll) Then
    Me.Filter = ""
    Me.FilterOn = False
    Exit Sub
Else
    strFilter = "select * from  frmGesamt where [BestellDatum] Like "" & task & " * """
    Me.Filter = strFilter
    Me.FilterOn = True
End If
End Sub

错误原因 #

原有代码存在3个核心问题，导致筛选失效：

• 报表的Filter属性仅需要接收WHERE后的条件表达式，不需要传入完整的SELECT查询语句；原代码不仅错误写入全量SELECT语法，还将窗体名frmGesamt误作为数据源表/查询名引用，同时引用了未赋值的task变量
• 日期筛选逻辑完全错误，使用Like模糊匹配语法处理日期范围场景，不符合时间类型数据的筛选规则
• 字符串拼接的引号配对错误，空值判断存在冗余拼接，运行时会直接触发VBA语法报错

修正代码 #

直接替换报表Open事件中的原有代码即可，筛选逻辑和窗体端保持完全一致，避免因日期格式、判断逻辑不一致导致的筛选结果偏差：

Private Sub Report_Open(Cancel As Integer)
    Dim frm As Form
    Dim strFilter As String
    
    ' 先判断筛选窗体是否已打开，避免报错
    If CurrentProject.AllForms("frmGesamt").IsLoaded = False Then
        MsgBox "请先在筛选窗体选择日期范围后再打开报表", vbExclamation
        Cancel = True
        Exit Sub
    End If
    
    Set frm = Forms!frmGesamt
    
    ' 校验日期控件是否为空，和窗体端校验逻辑对齐
    If IsNull(frm!txtVomAll) Or IsNull(frm!txtBisAll) Then
        Me.Filter = ""
        Me.FilterOn = False
        Exit Sub
    End If
    
    ' 拼接标准日期范围筛选条件，统一使用yyyy/mm/dd格式规避系统区域日期格式差异问题
    strFilter = "([BestellDatum] >= #" & Format(frm!txtVomAll, "yyyy\/mm\/dd") & _
                "# And [BestellDatum] <= #" & Format(frm!txtBisAll, "yyyy\/mm\/dd") & "#)"
    
    ' 为报表应用筛选
    Me.Filter = strFilter
    Me.FilterOn = True
End Sub

补充注意事项 #

• 报表的记录源需要和窗体筛选使用的查询qryFürFormular保持一致，不需要在Filter属性中重复指定数据源
• Access中日期类型值的界定符必须使用#，不能使用单引号或双引号，统一格式化为yyyy/mm/dd可以避免不同电脑区域设置导致的日期识别错误
• 如果需要打开报表时默认和窗体当前筛选完全同步，也可以直接在打开报表的按钮点击事件中，直接把筛选条件作为WhereCondition参数传给DoCmd.OpenReport，不需要在报表Open事件中重复拼接条件，示例代码如下：

' 写在frmGesamt窗体的report按钮点击事件中
Private Sub cmd_Report_Click()
    If IsNull(Me.txtVomAll) Or IsNull(Me.txtBisAll) Then
        MsgBox "请先选择日期范围", vbInformation
        Me.txtVomAll.SetFocus
        Exit Sub
    End If
    ' 打开报表并直接传入筛选条件
    DoCmd.OpenReport "rpt_你的报表名称", acViewPreview, , _
    "([BestellDatum] >= #" & Format(Me.txtVomAll, "yyyy\/mm\/dd") & "# And [BestellDatum] <= #" & Format(Me.txtBisAll, "yyyy\/mm\/dd") & "#)"
End Sub

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