Как запустить запрос из окна редактора VBA в Access?

Question

Я хотел бы сделать что-то вроде этого:

DoCmd.OpenQuery "select * from some_table;"

Как бы я это сделал?

Помните, что я не хочу создавать новый запрос, сохранять его и запускать. Я просто хочу напечатать оператор select в коде VBA и запустить его.

Answer 1

Если вы просто хотите получить максимальное значение, функция DMax должна выполнить свою задачу:

myVariable = DMax("fee", "courses", "region = 'UK'")

(соответствует SELECT MAX(fee) FROM courses WHERE region = 'UK').

Answer 2

Вы можете запустить запрос для получения одного значения с чем-то вроде этого:

Set rst = CurrentDB.OpenRecordset("Select Max(myCol) FROM myTable")
myValue = rst(0).Value

Который вы можете сократить до одной строки, например:

lngValue = CurrentDB.OpenRecordset("Select Max(myCol) FROM myTable")(0)