Access中动态设置对象数据的方案咨询：报表参数查询问题

当然可以用带参数的已保存查询作为报表的RecordSource，完全没必要硬编码WHERE子句，给你两种实用方案：

1. 直接绑定带参数的已保存查询 #

• 设计视图里直接把报表的RecordSource选成你那个带参数的查询，运行报表时Access会自动弹出参数输入框，让用户填完再加载数据。
• 如果要在代码里动态设置，一行代码就行：

  Me.RecordSource = "你的查询名称"
  

  同样会触发参数输入提示，适合需要用户手动输入参数的场景。

2. 代码自动传递参数（无需用户手动输入） #

如果不想让用户手动填参数，而是通过代码自动赋值，用QueryDefs处理最稳妥，还能避免SQL注入问题：

Dim qdf As QueryDef
Set qdf = CurrentDb.QueryDefs("你的带参数查询名称")

' 给查询参数赋值，假设参数名叫[起始日期]和[结束日期]
qdf.Parameters("[起始日期]") = DateSerial(2024, 1, 1)
qdf.Parameters("[结束日期]") = DateSerial(2024, 12, 31)

' 把处理后的查询SQL赋值给报表的RecordSource
Me.RecordSource = qdf.SQL

Set qdf = Nothing

这种方式本质是让Access帮你把参数值嵌入SQL，不用自己手动拼接WHERE子句，既安全又省心。

补充：用OpenArgs传递参数的方案 #

如果你的参数需要从打开报表的界面传递过来，还可以用OpenArgs：

• 打开报表时传参数：

  DoCmd.OpenReport "报表名称", acViewPreview, , , acWindowNormal, "起始日期=2024-01-01;结束日期=2024-12-31"
  

• 在报表的Open事件里解析参数并修改RecordSource：

  Private Sub Report_Open(Cancel As Integer)
      Dim args() As String
      Dim startDate As Date, endDate As Date
      If Not IsNull(Me.OpenArgs) Then
          args = Split(Me.OpenArgs, ";")
          startDate = Split(args(0), "=")(1)
          endDate = Split(args(1), "=")(1)
          Me.RecordSource = "SELECT * FROM 数据源表 WHERE 日期字段 BETWEEN #" & startDate & "# AND #" & endDate & "#"
      End If
  End Sub
  

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