ник: час
AktTabelle.MoveFirst
With AktBtn
.MoveFirst
for f=1 to .recordcount-1
if .EOF= false then
ArtStr = !ARTNR
тут надо будет сбегать в другую таблицу но там без цикла по таблице
MsgBox .ArtStr & " " & AktTabelle.AktNr
AktTabelle.MoveNext
.MoveNext
end if
next f
.Close
End With
|
положил бы ты таблицы сюда, а то как то не наглядно