2017-08-02 69 views
0
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 

這就是我如何做到這一點假設,但我試過幾個變化,所有已返回的錯誤。如果任何人都可以用這個特定語法來協助我,那真的很感謝!

回答

1

下面是我如何做到這一點。

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

    ' do other stuff 

    rst.MoveNext 
Loop 
+0

爲了完整起見,您可能需要更新您的示例以顯示如何檢索字段值。 –

+0

我被卡住盯着我的代碼這麼久,我想它轉向拉丁。我使用'rst.next'而不是'rst.MoveNext'。我會試試這個。謝謝! – Steven