Private Sub btnOpnieuwTossen_Click
TossenIsGelukt=False
edtVeld.Text=""
For ot = 1 To 40
ToastMessageShow("Toss ronde nummer "& ot,False)
GaOpnieuwTossen(ot)
If TossenIsGelukt Then Exit
Next
End Sub
Private Sub GaOpnieuwTossen(hoevaak As Int)
Dim Doorgaan As Boolean
btnOpnieuwTossen.Enabled=False
MetSterkte= chkSterkte.Checked
SpelersIngepland = 0
edtVeld.Text=""
VoorkeurSpelerNaam =""
VoorkeurSpelerID = 0
VoorkeurSpelerSterkte=0
btnVeld1.Enabled=False
btnVeld2.Enabled=False
btnVeld3.Enabled=False
btnVeld4.Enabled=False
btnVeld5.Enabled=False
ZieVeld = 1
txt="DELETE FROM '"& Main.DBTableName1 & "' where datum = '"& Main.WelkeTossDatum & "' " ' alle wedstrijden deze datum verwijderd
Main.SQL1.ExecNonQuery(txt)
'from here it fills a database afther making a toss
VulEditVeld ' this will fill the edit field with new data
End Sub
Private Sub VulEditVeld
Dim Oudetijd As String
Dim Dummy As Int
WieNietIngetost
If TossenIsGelukt=False Then Return
edtVeld.Text = "Indeling toss-wedstrijden "& Main.WelkeTossDatum & CRLF & CRLF
'from here it will fill the field further
End Sub
[\CODE]