MS Access：从带参数的联合查询中提取最小/最大年份至报表

针对你的需求——从带年份参数的联合查询qry_ObjectUnion中提取最小、最大年份并展示在报表里，我整理了两种实用的解决方案，你可以根据实际场景选择：

方案1：直接复用用户输入的年份参数（简单高效） #

如果你的报表只需要展示用户选择的年份范围（也就是联合查询WHERE子句里的起始/结束年份），那完全不用额外查询——直接把用户输入的参数传递给报表就行了，步骤如下：

• 1. 创建一个参数选择表单（比如frm_YearSelector），添加两个文本框txt_StartYear和txt_EndYear，再加一个“打开报表”的按钮。
• 2. 给按钮添加VBA点击事件，传递参数并打开报表：

Private Sub cmd_OpenReport_Click()
    Dim startYear As Integer, endYear As Integer
    ' 验证用户输入（可选，避免非数字输入）
    If Not IsNumeric(Me.txt_StartYear) Or Not IsNumeric(Me.txt_EndYear) Then
        MsgBox "请输入有效的年份数字！", vbExclamation
        Exit Sub
    End If
    startYear = Me.txt_StartYear.Value
    endYear = Me.txt_EndYear.Value
    
    ' 打开报表并传递参数，用分号分隔多个参数
    DoCmd.OpenReport "你的报表名称", acViewPreview, , , acWindowNormal, _
        "StartYear=" & startYear & ";EndYear=" & endYear
End Sub

• 3. 在报表的OnOpen事件里接收参数，绑定到报表的文本框（比如用来显示标题的文本框）：

Private Sub Report_Open(Cancel As Integer)
    Dim paramStr As String, params() As String
    paramStr = Me.OpenArgs
    If Not IsNull(paramStr) Then
        params = Split(paramStr, ";")
        ' 假设报表有两个文本框：txt_ReportStart和txt_ReportEnd
        Me.txt_ReportStart.Value = Split(params(0), "=")(1)
        Me.txt_ReportEnd.Value = Split(params(1), "=")(1)
        ' 也可以直接设置报表标题
        Me.Caption = "对象报表 - " & Me.txt_ReportStart.Value & "至" & Me.txt_ReportEnd.Value
    End If
End Sub

这种方法的好处是不用重复查询，直接复用用户输入的参数，适合你只需要展示用户选择的年份范围的场景。

方案2：从查询结果中提取实际存在的最小/最大年份（更准确） #

如果联合查询的结果里，实际的DateObject年份可能和用户输入的范围不完全一致（比如某些年份没有数据），那你需要基于用户的参数，再做一次聚合查询来获取实际的最小和最大年份：

• 1. 先补全你的联合查询qry_ObjectUnion的WHERE子句（你提供的SQL里UNION后的tbl_ObjectT部分没加条件，一定要补上，否则部分数据不受年份限制）：

SELECT [Object], [DateObject] 
FROM qry_ObjectQuery 
WHERE Year([DateObject]) Between [Which year would you like this report to start?] And [Which year would you like this report to end?]
UNION
SELECT [Object], [DateObject] 
FROM tbl_ObjectT
WHERE Year([DateObject]) Between [Which year would you like this report to start?] And [Which year would you like this report to end?];

• 2. 创建一个聚合查询qry_MinMaxYears，基于你的联合查询获取最小和最大年份：

SELECT 
    Min(Year([DateObject])) AS MinYear,
    Max(Year([DateObject])) AS MaxYear
FROM qry_ObjectUnion;

这个查询会自动继承联合查询的参数提示，用户输入年份后就能返回结果集中实际存在的最小、最大年份。

• 3. 在报表中使用这个聚合查询：
  • 方法A：把qry_MinMaxYears设为报表的数据源，直接将报表上的文本框绑定到MinYear和MaxYear字段；
  • 方法B：用VBA在报表OnOpen事件里读取查询结果：

Private Sub Report_Open(Cancel As Integer)
    Dim rs As DAO.Recordset
    ' 打开聚合查询的记录集
    Set rs = CurrentDb.OpenRecordset("qry_MinMaxYears")
    
    If Not rs.EOF Then
        ' 假设报表有两个文本框：txt_ActualMinYear和txt_ActualMaxYear
        Me.txt_ActualMinYear.Value = rs!MinYear
        Me.txt_ActualMaxYear.Value = rs!MaxYear
        Me.Caption = "对象报表 - 实际年份范围：" & rs!MinYear & "至" & rs!MaxYear
    Else
        MsgBox "该年份范围内没有数据！", vbInformation
        Cancel = True ' 取消打开报表
    End If
    
    rs.Close
    Set rs = Nothing
End Sub

优化提示：避免重复输入参数 #

如果不想让用户重复输入年份参数（比如联合查询和聚合查询各弹一次输入框），可以结合方案1的参数表单，用VBA预先设置查询的参数值：

Private Sub cmd_OpenReport_Click()
    Dim startYear As Integer, endYear As Integer
    If Not IsNumeric(Me.txt_StartYear) Or Not IsNumeric(Me.txt_EndYear) Then
        MsgBox "请输入有效的年份数字！", vbExclamation
        Exit Sub
    End If
    startYear = Me.txt_StartYear.Value
    endYear = Me.txt_EndYear.Value
    
    ' 设置联合查询的参数
    With CurrentDb.QueryDefs("qry_ObjectUnion")
        .Parameters("[Which year would you like this report to start?]") = startYear
        .Parameters("[Which year would you like this report to end?]") = endYear
    End With
    
    ' 设置聚合查询的参数（因为它依赖联合查询）
    With CurrentDb.QueryDefs("qry_MinMaxYears")
        .Parameters("[Which year would you like this report to start?]") = startYear
        .Parameters("[Which year would you like this report to end?]") = endYear
    End With
    
    ' 打开报表
    DoCmd.OpenReport "你的报表名称", acViewPreview
End Sub

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