如何在MS Access VBA中读取自定义查询Query11的字段值？

你的代码没生效的核心原因是打开记录集后没有定位到具体的记录行——Access的Recordset对象默认处于记录集的起始位置之前（BOF），直接读取字段值自然拿不到数据。下面是修正后的完整方案：

修正后的代码 #

Dim dbMyDB As Database
Dim rsMyRS As Recordset
Dim weeklySum As Variant
Dim monthlySum As Variant

Set dbMyDB = CurrentDb
Set rsMyRS = dbMyDB.OpenRecordset("Query11")

' 先检查记录集是否有数据
If Not (rsMyRS.BOF And rsMyRS.EOF) Then
    ' 定位到第一条记录（汇总查询通常只返回一行）
    rsMyRS.MoveFirst
    
    ' 读取字段值，同时处理可能的Null值（避免报错）
    weeklySum = Nz(rsMyRS("SUM_WEEKLY"), 0)
    monthlySum = Nz(rsMyRS("SUM_MONTHLY"), 0)
    
    MsgBox "周汇总金额：" & weeklySum
    MsgBox "月汇总金额：" & monthlySum
Else
    MsgBox "查询Query11没有返回任何数据！"
End If

' 记得关闭记录集和释放对象
rsMyRS.Close
Set rsMyRS = Nothing
Set dbMyDB = Nothing

关键要点解释 #

• 必须定位记录：汇总查询（比如带SUM的查询）一般只会返回一行数据，但打开记录集后必须用MoveFirst跳到这一行才能读取字段值。
• 处理Null值：如果查询的汇总结果是空（比如没有符合条件的数据），字段值会是Null，直接用MsgBox输出会报错，用Nz()函数可以把Null转换成默认值（这里设为0）。
• 检查空记录集：加上If Not (rsMyRS.BOF And rsMyRS.EOF)的判断，避免在查询无数据时执行后续操作导致错误。
• 对象清理：最后关闭记录集并释放对象，这是良好的编程习惯，避免占用资源。

额外排查点 #

如果还是取不到值，可以检查这两点：

• 确认查询Query11确实包含SUM_WEEKLY和SUM_MONTHLY字段，字段名拼写完全一致（Access不区分大小写，但最好和查询里的名称完全匹配）。
• 手动运行Query11，确认它确实返回了数据（有时候查询条件可能导致没有结果）。

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