Code:
If AANTAL > 0 Then
TB_getuig.AddNew
TB_getuig!rekening_Kodelang = TB!KODELANG
TB_getuig!k_naam = Thernaam
TB_getuig!Vschrift_datvoor = TB_Vschrift!datvoor
TB_getuig!Vschrift_datop = TB_Vschrift!datop
TB_getuig!Vschrift_operatie = TB_Vschrift!Operatie
TB_getuig!getuigschriftnummer = getuigschriftnummer + 1
Do While i < 20
i = i + 1
TB_getuig.Fields("Datum" & i) = TB!DATUM
TB_getuig.Fields("code" & i) = TB!CODE
TB.MoveNext
Loop
TB_getuig.Update
Endif
deze code werkt perfect, maar
stel, AANTAL is 25
ik heb maar plaats om 20 codes en datum naar TB_getuig weg te schrijven per record
dus, ik moet een nieuw record aanmaken voor de resterende 5
dus, ik moet, als i 21 wordt, terug naar het begin en een nieuw record aanmaken
hoe krijg ik dat geprogrammeerd...
Bedankt
JP