循环访问记录集以检索值

问题描述：

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

这就是我如何做到这一点假设，但我试过几个变化，所有已返回的错误。如果任何人都可以用这个特定语法来协助我，那真的很感谢！

答

下面是我如何做到这一点。

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

    ' do other stuff 

    rst.MoveNext 
Loop

为了完整起见，您可能需要更新您的示例以显示如何检索字段值。 –

我被卡住盯着我的代码这么久，我想它转向拉丁。我使用'rst.next'而不是'rst.MoveNext'。我会试试这个。谢谢！ – Steven

循环访问记录集以检索值

相关推荐