Как прочитать значения из одного из пользовательских запросов в MS Access VBA?

Question

У меня есть запрос MS ACCESS с именем Query11, который суммирует суммы.

Скажем, у него есть SUM_WEEKLY и SUM_MONTHLY как поле в 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")

Answer 1

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    

Answer 2

Ваш код должен работать, и вы не сообщаете об ошибке, а пытаетесь быть немного более явным:

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