Access 2010中如何向多查询传递参数并实现一键报表打印？

别慌，这个需求其实很常见，完全能搞定！我给你梳理个清晰的步骤，跟着做就行：

1. 先做一个统一的日期输入窗体 #

• 新建一个窗体，拖入两个日期控件（建议命名为txtStartDate和txtEndDate，方便后续引用），再添加一个命令按钮（标题设为「执行查询并打印」，命名为btnRunQueries）。
• 这个窗体就是用户唯一的输入入口，彻底避免重复弹窗要日期的麻烦。

2. 修改两个查询，绑定窗体的日期参数 #

把原来两个查询里手动输入日期的参数，替换成引用窗体控件的值。比如原来的查询条件是：

Between [请输入开始日期] And [请输入结束日期]

现在改成：

Between Forms!日期输入窗体名称!txtStartDate And Forms!日期输入窗体名称!txtEndDate

这样两个查询就会自动读取用户在窗体里输入的日期，不用再单独弹窗询问了。

3. 给按钮绑定执行逻辑（两种方式可选） #

接下来给「执行查询并打印」按钮添加点击事件，让它完成日期验证→运行查询→打印结果的整套流程。

选项A：用宏（新手友好，无需写代码） #

打开宏设计器，依次添加以下操作：

• MsgBox：先做日期有效性校验——如果txtStartDate为空、txtEndDate为空，或者开始日期晚于结束日期，弹出提示让用户修正。
• OpenQuery：分别添加两个该操作，选择你的两个查询，「视图」选项可以选「打印预览」（让用户先看再打）或者直接选「打印」。
• Close（可选）：执行完所有操作后，关闭日期输入窗体。

选项B：用VBA（更灵活，适合复杂场景） #

右键按钮→选择「事件生成器」→选VBA代码，粘贴类似下面的代码：

Private Sub btnRunQueries_Click()
    ' 第一步：验证日期是否有效
    If IsNull(Me.txtStartDate) Or IsNull(Me.txtEndDate) Then
        MsgBox "请输入完整的起止日期哦！", vbExclamation
        Exit Sub
    End If
    If Me.txtStartDate > Me.txtEndDate Then
        MsgBox "开始日期不能比结束日期晚呀！", vbExclamation
        Exit Sub
    End If
    
    ' 第二步：运行两个查询并打印
    ' 若想先预览再打印，把acViewNormal改成acViewPreview即可
    DoCmd.OpenQuery "你的第一个查询名称", acViewNormal, acEdit
    DoCmd.OpenQuery "你的第二个查询名称", acViewNormal, acEdit
    
    ' 第三步：关闭日期输入窗体（可选）
    DoCmd.Close acForm, Me.Name
End Sub

4. 把窗体接入仪表板 #

最后在你的仪表板里加一个按钮，设置点击事件为「打开窗体」，选择你刚做的日期输入窗体就行。用户点击仪表板按钮→弹出日期窗体→输入日期→点击执行，就能一次性完成所有操作啦！

额外小技巧：如果想把两个查询的结果整合到一份报表里，可以先做一个联合查询把两个查询的结果合并，再基于联合查询做报表，同样用窗体传递日期参数，这样就能打印一份整合后的报表了。

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