Ms access 在Access VBA中索引记录集以查找值

addrPullQry从地址类型为Primary（Secondary是另一个选项）且存在我在查询中指定的记录ID和组ID的地址表中选择所有记录

我给用户一个On_Click（）事件，该事件将在某个组的某个客户下分配一个地址类型。如果该客户的主地址类型已经存在，我需要提示用户覆盖它。我需要能够找到像街道，城市，州等地址值打印在提示符。这些值本身存储在查询中，我只是不知道如何引用它们并将它们存储在变量中

---

我假设rst.Index可以实现这一点，但我对它不熟悉，而且MSDN页面也没有太大帮助。

如果我了解您的目的，您希望使用您创建的记录集返回地址信息以提示用户。如果您只需要这些，那么：

    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(addrPullQry)
    rst.Index = '''''''
    If rst.RecordCount > 0 Then
        MsgBox ("More than zero") 'Prompt with address info
    Else
        MsgBox ("Not more than zero") ' Assign Primary to address
    End If

---

只需将查询“addrPullQry”中的实际字段名替换为Street/City/State即可。

如果我理解您的目的，您希望使用您创建的记录集返回地址信息以提示用户。如果您只需要这些，那么：

    Dim dbs As DAO.Database
    Dim rst As DAO.Recordset
    Set dbs = CurrentDb
    Set rst = dbs.OpenRecordset(addrPullQry)
    rst.Index = '''''''
    If rst.RecordCount > 0 Then
        MsgBox ("More than zero") 'Prompt with address info
    Else
        MsgBox ("Not more than zero") ' Assign Primary to address
    End If

---

只要用街道/城市/州替换查询中的实际字段名“addrPullQry”

看看

DCOUNT

INSERT

和

UPDATE

SQL，如果我理解你的意思。看看

DCOUNT

INSERT

和

UPDATE

SQL。