vba - 如何在 MS-Access 2010 中对列进行“For Each”不同记录？

Question

我正在尝试创建一个 VBA 代码，它将遍历Table1.FieldName值的每个不同记录。我有一个名为“ Collector ”的字段，例如，可以说查询的结果：

从 Table1 中选择不同的收集器

以下是

---

史密斯路
第五大道
桑福德

---

我希望能够使用一个 for each 并且每次运行都有一个变量，该变量依次分配给每个结果记录。

如果我遗漏了任何需要的信息，或者我不清楚任何事情，请告诉我，我会尽力提供更多信息。

提前致谢。

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