MS Access VBA执行SELECT SUM查询报错：无法执行选择查询

错误核心原因 #

• db.Execute 仅支持执行动作查询（如数据插入、更新、删除），无法直接执行SELECT查询来获取结果集，这是触发Cannot execute a select query错误的直接原因。
• 代码中存在多处逻辑错误，导致无法正确获取目标值：
  1. pd = SumOfOpleadTm 完全无效：SumOfOpleadTm是SQL查询的别名，此时还未执行查询，变量无实际值。
  2. SQL语句冗余且存在类型问题：工单号是Long类型，不需要用双引号包裹；针对单个工单求和，直接用WHERE子句筛选更高效，无需GROUP BY后再用HAVING。
  3. MsgBox ("pd") 只会显示字符串"pd"，而非变量pd的实际计算值。

修正后的代码示例 #

Private Sub Command50_Click()
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String
    Dim ActvJbNum As Long
    Dim pd As Long
    
    ' 获取当前工单编号
    ActvJbNum = Me.EntJobNum
    
    Set db = CurrentDb
    ' 简化SQL：直接用WHERE筛选单工单求和，无需分组
    strSQL = "SELECT Sum(tblRouting.OpleadTm) AS SumOfOpleadTm " & _
             "FROM tblRouting " & _
             "WHERE tblRouting.[Job Number] = " & ActvJbNum
    
    ' 用Recordset执行SELECT查询并获取结果集
    Set rs = db.OpenRecordset(strSQL)
    
    ' 读取查询结果，用Nz处理空值避免报错
    If Not rs.EOF Then
        pd = Nz(rs!SumOfOpleadTm, 0)
    Else
        pd = 0 ' 无匹配工单时赋值0
    End If
    
    ' 显示变量实际值
    MsgBox pd
    
    ' 关闭释放资源
    rs.Close
    Set rs = Nothing
    Set db = Nothing
End Sub

关键修正点说明 #

• 使用DAO.Recordset执行SELECT查询并读取结果，这是Access VBA获取查询返回值的正确方式。
• 简化SQL逻辑：单个工单求和无需分组，直接用WHERE筛选即可，提升执行效率。
• 用Nz函数处理空值：如果工单无匹配记录，Sum结果为Null，Nz可将其转为0避免类型错误。
• 正确引用变量：MsgBox直接写pd而非字符串"pd"，才能显示变量的实际计算结果。

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