Как выполнить запрос и поместить результат в переменную

Question

Я выполняю запрос из редактора VBA Access:

select max(somerow) from sometable

Я хочу поместить результат этого запроса в переменную VBA. Как мне это сделать?

Answer 1

Посмотрите на справку Access для функции DMax.

Dim varSomething As Variant
varSomething = DMax("somerow", "sometable")

Редактировать : Я понимаю, что предложение не то, что вы искали. Но мне кажется, что вы, возможно, проделали долгий путь, чтобы достичь чего-то простого с помощью функции домена DMax.

Answer 2

Если вам просто нужно значение Max, вам следует рассмотреть возможность использования решения HansUps.

Вот решение с использованием DAO:

Dim rs As DAO.Recordset
Dim sqlMax As String
Dim result As Integer

sqlMax = "select max(somerow) from sometable"
Set rs = CurrentDb.OpenRecordset(sqlMax)

If rs.Fields.Count = 1 Then
    result = rs.Fields(0)
End If

Set rs = Nothing

Вам потребуется добавить ссылку на библиотеку объектов Microsoft DAO через Сервис-> Ссылки в редакторе VBA