如何从MS Access VBA中的一个自定义查询中读取值？

我有一个名为

Query11

的MS ACCESS查询，它汇总了金额

假设它在

Query11

在VBA中，如何获取每个值

我试着用下面的代码获取它们，但没有成功

Dim dbMyDB As Database
Dim rsMyRS As Recordset

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

MsgBox rsMyRS("SUM_WEEKLY")
MsgBox rsMyRS("SUM_MONTHLY")

---

您的代码应该可以工作，您不会告诉错误，但请尽量更明确一点：

Dim dbMyDB As DAO.Database
Dim rsMyRS As DAO.Recordset

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

' Check that a record exists.
MsgBox CStr(rsMyRS.RecordCount)

MsgBox rsMyRS("SUM_WEEKLY").Value
MsgBox rsMyRS("SUM_MONTHLY").Value

---

现在，我得到的项目在此集合中找不到（3265运行时错误），那么您的查询中可能缺少字段“SUM_WEEKLY”或“SUM_MONTHLY”。

Dim db As DAO.Database
Dim rs As DAO.Recordset

Set db = CurrentDb
Set rs = db.OpenRecordset("Query11")

' Check a record exists
If rs.RecordCount > 0 Then
 MsgBox "SUM_WEEKLY = " & rs!SUM_WEEKLY
 MsgBox "SUM_MONTHLY = " & rs!SUM_MONTHLY
Else
 MsgBox "Recordset has no records"
End If