VBA - Перебор отфильтрованной таблицы доступа

Question

Access 2013 32 бит/Windows 7 64 Bit

У меня есть таблица ключей и на основе значения ключа мой VBA будет работать несколько запросов и заполнить другие поля в таблице - Я называю это «Проверка». У меня есть столбец «Проверено» в таблице и приходится прерывать обработку этого списка в несколько партий (и больше записей постоянно добавляются), поэтому я хочу отфильтровать «Проверенные». Я хотел бы сделать это без с помощью отдельного запроса

Я использую традиционный цикл ж/условие: (Мой код работает это только макете игнорировать синтаксис здесь, пожалуйста)

Move First 
Do Until EOF 
if Table("Checked") = "True" Then goto NextRow 
    <Code> 
NextRow: 
    Move Next 
Loop 

Я хотел бы продолжить с этим методом, но отфильтровать все "Checked" = True на начале

Answer 1

Просто откройте записи с запросом, который имеет ИНЕК.

Dim rs As Recordset 
Dim S As String 

S = "SELECT foo, morefoo FROM bar WHERE [Checked] = 0" 
' Or if Checked is a Text column: 
S = "SELECT foo, morefoo FROM bar WHERE [Checked] <> 'True'" 

Set rs = CurrentDb.OpenRecordset(S) 
Do While Not rs.EOF 
    ' code 

    rs.MoveNext 
Loop 

(BTW, ваш Move First внутри цикла будет создавать бесконечный цикл ...)