uit loop gaan

Status
Niet open voor verdere reacties.
J

JEPEDEWE

Terugkerende gebruiker
Lid geworden
14 jun 2006
Berichten
1.682
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
 
Zoiets?
Code: 
        If AANTAL > 0 Then
            Do While j < AANTAL
                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
                j = j + 1
            Loop
        End If
 
Laatst bewerkt:
Niet helemaal, maar je zette mij wel op weg naar de oplossing...
dus, gevonden! bedankt
 
En daar gaat het maar om :)
 
En de oplossing is? Zo hebben andere belangstellenden er ook nog iets aan en is deze vraag met oplossing compleet.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan