Question

我正在从Access的VBA编辑器运行查询：

select max(somerow) from sometable

我想将此查询的结果放入VBA变量中。我该怎么做？

Answer 1

查看DMax功能的Access帮助。

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

编辑：我意识到这个建议不是你想要的。但在我看来，你可能需要很长时间才能实现使用DMax域函数的简单方法。

Answer 2

如果您只想要Max值，则应考虑使用HansUps Solution。

以下是使用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

您需要通过工具 - ＆gt; VBA编辑器中的参考

添加对Microsoft DAO对象库的引用

如何运行查询并将结果放入变量中

2 个答案: