ник: ial52
По этому коду движение происходит только по второй таблице, а первая, зараза, намертво стоит на первой строке.
Я таких циклов уже миллион раз писал, а сейчас переклинило. Видимо долго не занимался-был полутарогодовой перерыв, а сейчас жена потребовала помочь ей...
With AktBtn
.MoveFirst
Do While Not .EOF
ArtStr = !SchaltflaecheNr
AktTabelle.MoveFirst
Do While Not AktTabelle.EOF
AktNr = AktTabelle!artnr
MsgBox AktNr & " " & ArtStr
AktTabelle.MoveNext
Loop
MsgBox ArtStr & " " & AktNr
.MoveNext
Loop
End With