Как сделать «для каждого» отдельную запись столбца в MS-Access 2010?

Question

Я пытаюсь создать код VBA, который будет проходить через каждую отдельную запись для значения Table1.FieldName . У меня есть поле с именем " Collector " и, например, скажем, результат запроса:

Выбор отличительного коллектора из таблицы1

является следующим

---

Смит-роуд
Пятая авеню
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