Access中含TempVars变量的预定义查询通过VBA的OpenRecordSet调用时无法正常执行的问题

这个问题我之前处理过，核心原因是：直接用CurrentDb.OpenRecordset执行嵌套查询时，DAO引擎不会自动解析预定义查询里的TempVars引用——毕竟TempVars是Access应用层面的变量，底层的Jet/ACE数据库引擎本身并不认识它。而你在Access导航面板直接执行查询时，是Access先帮你把TempVars替换成实际值，再把处理后的SQL提交给引擎，所以能正常运行。

下面给你几个实用的解决方案，你可以根据自己的需求选择：

方案一：用QueryDef对象解析TempVars后执行聚合 #

这个方法不需要修改原查询，利用QueryDef能识别Access环境变量的特性来解决问题：

Dim qd As QueryDef
Dim rs As Recordset

' 先获取原查询的SQL，再包装成聚合查询
Dim aggregateSql As String
aggregateSql = "SELECT Sum(Value) FROM (" & CurrentDb.QueryDefs("SampleQuery").SQL & ")"

' 创建临时QueryDef来执行聚合SQL（QueryDef会自动解析TempVars）
Set qd = CurrentDb.CreateQueryDef("", aggregateSql)
Set rs = qd.OpenRecordset(dbOpenSnapshot)

' 读取聚合结果
If Not rs.EOF Then
    Debug.Print "计算结果：" & rs(0) ' 或者把结果赋值给变量使用
End If

' 清理资源
rs.Close
qd.Close
Set rs = Nothing
Set qd = Nothing

方案二：直接在VBA中代入TempVars的值 #

既然你已经在OnClick事件里初始化了TempVars!SelectedNodeID，可以直接把它的值拼到SQL字符串中，让引擎直接识别：

Dim selectedID As Variant
selectedID = TempVars!SelectedNodeID

Dim sql As String
sql = "SELECT Sum(Value) FROM " & _
      "(SELECT Tree.NodeID, ASibling.NodeID, ASibling.Value " & _
      "FROM Tree " & _
      "LEFT JOIN Tree AS ASibling ON Tree.ParentNodeID = ASibling.ParentNodeID " & _
      "WHERE Tree.NodeID=" & selectedID & ")"

Dim rs As Recordset
Set rs = CurrentDb.OpenRecordset(sql, dbOpenSnapshot)

If Not rs.EOF Then
    Debug.Print "计算结果：" & rs(0)
End If

rs.Close
Set rs = Nothing

方案三：把原查询改成参数查询（更规范的做法） #

如果你愿意调整原查询的结构，把TempVars替换成参数，后续维护会更灵活：

1. 先修改SampleQuery的WHERE子句，把[TempVars]![SelectedNodeID]改成参数，比如：

   WHERE (Tree.NodeID=[SelectedNodeID]);
   

2. 然后在VBA中给参数赋值后执行：

   Dim qd As QueryDef
   Dim sampleRs As Recordset
   Dim totalSum As Double
   
   Set qd = CurrentDb.QueryDefs("SampleQuery")
   qd.Parameters("SelectedNodeID") = TempVars!SelectedNodeID ' 给参数赋值
   Set sampleRs = qd.OpenRecordset(dbOpenSnapshot)
   
   ' 遍历Recordset计算总和，用Nz处理空值避免报错
   totalSum = 0
   Do While Not sampleRs.EOF
       totalSum = totalSum + Nz(sampleRs!Value, 0)
       sampleRs.MoveNext
   Loop
   
   Debug.Print "计算结果：" & totalSum
   
   ' 清理资源
   sampleRs.Close
   qd.Close
   Set sampleRs = Nothing
   Set qd = Nothing
   

这三个方案都能解决你的问题，如果你不想改动原查询，方案一或二最快捷；如果希望查询的复用性更强，方案三更推荐。

备注：内容来源于stack exchange，提问作者delix