循环记录集以检索值

Question

returnAddress = "SELECT Address_ID FROM Address_Bridge WHERE Customer_ID = 
76541 AND Company_ID = 23540"

set db = currentDB
set rst = db.openRecordSet(returnAddress)

这是我的记录集。它返回客户和公司的特定组合的所有地址ID。我预计此记录集会返回1到7个地址ID。我需要将它们中的每一个用作Append查询中的值。我只是不确定如何访问它们。

For Each Address_ID in rst
    perform update query
next

这是我对如何做到这一点的假设，但我尝试了几种变体并且都返回了错误。如果有人可以帮我解决这个问题的特定语法，那真的很感激！

Answer 1

我是这样做的。

Dim sValue As String
Do until rst.EOF
  sValue=rst!FieldName

  ' do other stuff

  rst.MoveNext
Loop