如何在VBA中引用查询返回的字段以设置Do Loop循环终止条件

方案1：Access VBA 最简实现（推荐） #

如果是在Access环境下使用VBA，可以直接用内置的DCount函数，无需手动处理查询结果：

Do
    ' 此处填写你的业务逻辑，比如填充Quantity字段空值的相关操作
Loop Until DCount("*", "你的实际表名", "Quantity IS NULL") = 0

DCount会直接返回表中符合筛选条件的行数，当没有Quantity为空的行时返回0，循环自动终止。

方案2：通用SQL执行实现（适配Excel VBA/其他数据库连接场景） #

如果需要自己执行SQL查询获取计数，可以用ADO连接数据库后读取查询结果：

Dim conn As Object
Dim rs As Object
Dim nullQtyCount As Long

' 初始化数据库连接，可根据实际使用的数据库类型修改连接字符串
Set conn = CreateObject("ADODB.Connection")
conn.Open "替换为你的数据库连接字符串"

Do
    ' 此处填写你的业务逻辑
    
    ' 执行查询获取Quantity为空的行数
    Set rs = conn.Execute("SELECT COUNT(*) AS cnt FROM 你的实际表名 WHERE Quantity IS NULL")
    ' 读取查询返回的计数字段值
    nullQtyCount = rs.Fields("cnt").Value
    rs.Close
Loop Until nullQtyCount = 0

' 释放资源
conn.Close
Set rs = Nothing
Set conn = Nothing

注意事项 #

• 不要使用Count作为变量名，该名称是VBA保留关键字，使用会引发不可预期的报错
• 循环内的业务逻辑必须具备修改Quantity空值的能力，否则会进入无限死循环
• 数据量较大时不建议每次循环都查询数据库，可以在业务逻辑中同步统计已处理的空值行数，优化运行性能

内容的提问来源于stack exchange，提问作者ArthurMorgan