Блог

Я пытаюсь создать код VBA, который будет выполняться через каждую отдельную запись для Таблицы1.Имя_поля Значение. У меня есть поле с именем «Коллектор«, и для примера давайте представим результат запроса:

Выберите отдельный коллектор из Таблицы1

заключается в следующем

Смит-роуд,
Пятая авеню
, Сэмфорд

Я хотел бы иметь возможность использовать a для каждой и при каждом запуске иметь переменную, которая присваивается каждой из результирующих записей по очереди.

Если я пропустил какую-либо необходимую информацию или если я что-то не прояснил, пожалуйста, дайте мне знать, и я постараюсь предоставить больше информации.

Заранее спасибо.

 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