如何在MS-Access 2010中爲「每個人」區別記錄一列？

Question

我試圖創建一個VBA代碼，將運行通過每個不同的記錄爲Table1.FieldName值。我有一個名爲「收藏家」字段和一個例子可以說一個查詢的結果：

SELECT DISTINCT收藏家從表1

在以下

---

Smith Road
Fifth Ave
Samford

---

我希望能夠爲每個和每個運行使用一個變量，依次爲每個結果記錄分配一個變量。

如果我留下了任何需要的信息，或者我沒有清楚任何事情，請告訴我，我會盡力提供更多信息。

在此先感謝。

Answer 1

Dim db As DAO.Database 
Dim rs1 As DAO.Recordset 
Dim v as string 

    Set db = CurrentDb() 
    Set rs1 = db.OpenRecordset("Select Distinct Collector From Table1") 

    Do While Not rs1.EOF 
    v = rs1.Fields(0).Value 
    'do something with v 
    rs1.MoveNext 
    Loop 


    rs1.Close