如何从Access中的VBA编辑器窗口运行查询？

Question

我想做这样的事情：

DoCmd.OpenQuery "select * from some_table;"

我该怎么做？

请记住，我不想创建新查询，保存并运行它。我只想在VBA代码中键入select语句并运行它。

Answer 1

如果您只想获得最大值，DMax-Function应该可以解决问题：

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)