[access] Waar zit de fout ?

[Verwijderd]

Op basis van volgende flowchart:

Initialiseer

Neem ingezet getal

Neem een lotto getal

· Komt het lottogetal overeen met ingezet getal: Kleur ingezet getal (1)

· Komt het lottogetal niet overeen met het ingezet getal: Neem een nieuw lotto getal

Vervolg van (1)

· Zijn alle ingezette getallen gekleurd ? Ja dus er is een Winnaar

· Zijn alle ingezette getallen gekleurd ? Neen dus Ga naar “neem ingezet getal” en (loopen maar )

( of gewoon: iemand zet 10 getallen in. Iedere lottrekking worden deze getallen geschrapt als ze overeenkomen. Wie het eerst zijn 10 getallen schrapt, wint !! )

Volgende SQL voorzien:

QBasic:

Option Compare Database
Public Sub OpdrachtmetQuotering()
Dim db As Database, rs1 As Recordset, rs2 As Recordset, vrij As Boolean, vlag As Boolean, quotering As Integer
Set db = CurrentDb
Set rs1 = db.OpenRecordset("inzet")
Set rs2=db.OpenRecordset("lotto")
rs1.MoveFirst
      Do While Not rs1.EOF 'lus opdrachten

vlag = False ' zet vlag om te zien of de opdracht wel kan geplaatst worden

        rs2.MoveFirst
        Do While Not rs2.EOF
              rs1.MoveNext
        Loop

MsgBox " Einde van de plaatsing "

End Sub

Dit geeft een foutmelding. Wat doe ik fout ?

[ Voor 4% gewijzigd door moto-moi op 30-12-2003 16:05 ]

[sh4d0wman]

wat voor fout geeft ie dan?

[Verwijderd]

Je hebt een loop in een loop, maar je sluit maar één loop af.

[moto-moi]

Hoi, welke op Gathering of Tweakers, ik gooi dit topic op slot aangezien je al [rml][ sql] foutmelding[/rml] hebt geopend, en daar komt het topic iets beter tot zijn recht. Ook is het niet de bedoeling om 2 topics over hetzelfde onderwerp te starten, als er iemand is die verstand heeft van Access, dan komt hij je topic echt wel tegen