loops - 循环遍历表格列

Question

Access VBA 新手，需要一些帮助。我有一个带有布尔字段的表，我试图循环查找所有“False”字段。找到后，我想显示一个包含 ID 号和一些基本信息的消息框。我的表位于 SQL 数据库中。谢谢您的帮助！

Answer 1

您可以使用 GetString。这是一个例子

Public Sub MsgBoxActives()

    Dim rs As ADODB.Recordset
    Dim cn As ADODB.Connection

    Set cn = CurrentProject.Connection
    Set rs = cn.Execute("SELECT CUSTOMERID, DISCOUNT FROM [Volume Rebate Customers] WHERE not [INACTIVE?];")

    MsgBox rs.GetString

End Sub