Custom Import VBA issue

Question

Я использую пользовательскую функцию импорта (скелет ниже) для сбора данных из текстовых файлов «Связанные» (содержащих заголовок/записи/нижний колонтитул). Первое поле заголовка всегда будет содержать 123, но мне нужно пропустить те записи, где второе поле в заголовке начинается с букв «AC».

Я попытался создать цикл, который, когда он найдет первое поле, содержит «123», а второе поле начинается с «AC», а затем пропускает записи до тех пор, пока не найдет другой «123», а затем снова проведет проверку через цикл и только вырваться из цикла, чтобы записать записи, которые не содержат «AC» во втором поле заголовка.

Однако я получаю сообщение об ошибке «Ошибка компиляции: Augment не является обязательным» на основе строки Loop Until rs!Field1 = "123" And Left(rs!Field2) <> "AC" при попытке выполнить следующее и не совсем уверенно, что еще нужно проверить, если строка во втором поле начинается с «AC». Благодарю.

Public Function FormatTextFile() 

Dim db As Database 
Dim rs, rsa As Recordset 
Dim cCount as double 

Set db = CurrentDb 
Set rs = db.OpenRecordset("Flow_20160316") 

cCount = 1 

Do 

    Do While rs!Field1 = "123" And Left(rs!Field2, 2) = "AC" 
     Debug.Print "Code Skipped on Record " & cCount 
     cCount = cCOunt + 1 
     rs.MoveNext 
    Loop Until rs!Field1 = "123" And Left(rs!Field2) <> "AC" 

Select Case rs!Field1 

    Case Is = "123" 
     'Code continues and writes some variables to tables' 
     Case else 
     Debug.Print "Code Skipped on Record " & cCount 
    End select 
    cCount = cCOunt + 1 
rs.MoveNext 

Loop until rs.eof 

rs.Close 
db.Close 

Set rs = Nothing 
Set db = Nothing 

End Function 

Answer 1

Do/Пока/До циклов в VBA не приходят в различных формах, есть ответ здесь на SO (но я не могу найти его сейчас), в котором перечислены 7 версии.

(Edit:found it - Внимание: не ходите туда, если у вас нет немного свободного времени, чтобы тратить)

Но

Do While <condition> 
    ' stuff 
Loop Until <condition> 

не допускается - это синтаксис ошибка. Условие может появиться только один раз.

Вот достойный обзор: http://www.excelfunctions.net/VBA-Loops.html#DoWhileLoop

---

С этим, как говорится, ваш код с вложенными циклами кажется слишком сложным. Разве вы не можете просто это сделать?

Do While Not rs.EOF 

    If rs!Field1 = "123" And Left(rs!Field2, 2) = "AC" Then 
     Debug.Print "Code Skipped on Record " & cCount 
    Else 
     ' regular code 
    End If 

    cCount = cCount + 1 
    rs.MoveNext 

Loop 

Примечание: при использовании Do While Not rs.EOF избежать ошибки, если rs пуст.