ник: ial52
Что-то заклинило...
Две таблицы: AktTabelle и AktBtn. Количество строк различное и никаких общих совпадений.
Задача: Встать на первые строки в обоих таблицах и прочесть значения из одного из полей в каждой таблице, после чего перейти на следующую строку в обоих таблицах. И так до тех пор, пока в первой таблице не дойдем до конца, после чего таблицы закрыть.
В чем ошибка????
With AktBtn
.MoveFirst
Do While Not .EOF
ArtStr = !ARTNR
AktTabelle.MoveFirst
Do While Not AktBtn.EOF
AktNr = AktBtn!SchaltflaecheNr
MsgBox AktNr & " " & ArtStr
AktTabelle.MoveNext
Loop
MsgBox ArtStr & " " & AktNr
.MoveNext
Loop
.Close
AktTabelle.Close
End With