如何在VBA中使用OpenRecordSet打开查询而非数据表？

问题场景 #

仅当审计流程失败时，从多数据源提取信息写入数据表。当前代码可正常打开tempAudit和auditLogDetails两个记录集，但调用Access内置查询qryLocationCheck时触发「Too few parameters」错误。尝试过Querydef和直接传入SQL语句的方式，均未解决；不想将查询结果转存临时表，但目前可能只能采用该方案。

相关代码片段：

'Only add to the Details table if the audit failed.
If auditMatch = False Then
   Set tempRs = db.OpenRecordset("tempAudit")
   Set auditRefRs = db.OpenRecordset("auditLogDetails")
   'Set locationRs = db.OpenRecordset("qryLocationCheck")

可能的解决方法 #

• 检查并手动赋值查询参数：qryLocationCheck大概率依赖未定义的参数（比如表单控件值、未传入的变量）。打开查询设计视图确认参数后，可通过Querydef在代码中手动赋值：

  Dim qdf As QueryDef
  Set qdf = db.QueryDefs("qryLocationCheck")
  ' 示例：假设查询需要参数LocationID，赋值为实际业务值
  qdf.Parameters("LocationID").Value = targetLocationID
  Set locationRs = qdf.OpenRecordset()
  

• 直接生成带具体值的SQL语句：如果查询逻辑不复杂，可直接在代码中拼接包含实际参数值的SQL（注意避免SQL注入，优先用参数化方式）：

  Dim sqlStr As String
  sqlStr = "SELECT * FROM YourTargetTable WHERE LocationCode = '" & safeLocationCode & "'"
  Set locationRs = db.OpenRecordset(sqlStr)
  

• 临时表备选方案：若上述方法均无效，可先执行查询并将结果写入临时表，再读取临时表记录集：

  ' 执行查询生成临时表
  db.Execute "SELECT * INTO tempLocationCheck FROM qryLocationCheck"
  ' 读取临时表数据
  Set locationRs = db.OpenRecordset("tempLocationCheck")
  

内容的提问来源于stack exchange，提问作者P. Fowler