Access VBA打开含表单日期参数的联合查询记录集遇3061错误的解决方法

错误原因：手动运行查询时Access会自动解析窗体控件参数，但DAO的OpenRecordset方法无法识别这类引用，会把Forms!Form3!FromDt和Forms!Form3!ToDt当成未定义的参数，因此触发3061错误。下面是三种可行的解决方法：

方法1：用QueryDef手动传递参数 #

通过获取查询的QueryDef对象，手动给两个窗体控件对应的参数赋值，再打开记录集：

Private Sub RunUnionQuery_Click()
    Dim db As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rs As DAO.Recordset
    Dim fromDt As Date, toDt As Date
    
    Set db = CurrentDb()
    fromDt = Forms!Form3!FromDt
    toDt = Forms!Form3!ToDt
    
    ' 获取联合查询的定义
    Set qdf = db.QueryDefs("q_trips")
    
    ' 给查询中的两个参数赋值
    qdf.Parameters("Forms!Form3!FromDt").Value = fromDt
    qdf.Parameters("Forms!Form3!ToDt").Value = toDt
    
    ' 打开记录集
    Set rs = qdf.OpenRecordset(dbOpenDynaset)
    
    ' 这里写后续处理记录集的代码，比如遍历数据等
    
    ' 释放资源
    rs.Close
    qdf.Close
    Set rs = Nothing
    Set qdf = Nothing
    Set db = Nothing
End Sub

方法2：动态拼接SQL语句（推荐简化版） #

直接在VBA里生成包含实际日期值的SQL，避免引用窗体控件，还能优化查询效率（只扫描一次trips表）：

Private Sub RunUnionQuery_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim sqlStr As String
    Dim fromDtStr As String, toDtStr As String
    
    Set db = CurrentDb()
    ' 把日期转换成Access SQL识别的格式（用#包裹）
    fromDtStr = "#" & Format(Forms!Form3!FromDt, "yyyy-mm-dd") & "#"
    toDtStr = "#" & Format(Forms!Form3!ToDt, "yyyy-mm-dd") & "#"
    
    ' 简化版SQL，用IN子句替代多个UNION查询
    sqlStr = "SELECT trips.trip, trips.when, trips.country " & _
             "FROM trips " & _
             "WHERE trips.when Between " & fromDtStr & " And " & toDtStr & " " & _
             "AND trips.country IN ('usa','uk','thailand','mexico','japan','france')"
    
    ' 打开记录集
    Set rs = db.OpenRecordset(sqlStr)
    
    ' 后续处理记录集的代码...
    
    ' 释放资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

如果一定要保留原联合查询的结构，也可以把每个子查询的控件引用替换成实际日期值，拼接完整的UNION语句。

方法3：先打开查询再获取记录集 #

先通过DoCmd打开查询（Access会自动解析控件参数），再获取记录集，适合简单场景：

Private Sub RunUnionQuery_Click()
    Dim rs As Recordset
    
    ' 隐藏打开查询，避免弹窗
    DoCmd.OpenQuery "q_trips", acViewNormal, acReadOnly
    
    ' 获取查询的记录集
    Set rs = CurrentDb.OpenRecordset("q_trips")
    
    ' 关闭查询窗口
    DoCmd.Close acQuery, "q_trips"
    
    ' 后续处理记录集的代码...
    
    rs.Close
    Set rs = Nothing
End Sub

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