How to run a query from the VBA Editor window in Access?

Question

I would like to do something like this:

DoCmd.OpenQuery "select * from some_table;"

How would I do this?

Please keep in mind I don't want to create a new query, save it, and run it. I just want to type the select statement in the VBA code and run it.

Answer 1

If you just want to get a max value, the DMax-Function should do the trick:

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

(corresponds to SELECT MAX(fee) FROM courses WHERE region = 'UK').

Answer 2

You can run a query to retrieve a single value with something like this:

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

Which you can shorten down to one line like this:

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