ik heb een vraag, ik heb een stukje geschreven in vba maar ik krijg een fout, ik snap niet waarom ik heb het volgens mij goed geschreven...
Option Compare Database
Public myDB As Database
Public tbRing As Recordset
Public tbvereniging As Recordset
Public qryOpzoeken_ringuniek_AF As Recordset
Public qryOpzoeken_vereniging_ID As Recordset
Public qryOpzoeken_vereniging_NAAM As Recordset
Public qryOpzoeken_administrateur As Recordset
Public qryRegistrerenVereniging As Recordset
Public qryOpzoeken_ringreeks As Recordset
Private Sub Toevoegen_nieuw_vereniging_KNOP_Click()
Set myDB = DBEngine.Workspaces(0).Databases(0)
Set tbvereniging = myDB.OpenRecordset("vereniging_id")
Set qryRegistrerenVereniging = myDB.OpenRecordset("RegistrerenVereniging")
tbvereniging.MoveFirst
Do While tbvereniging.EOF = False
If tbvereniging!Vereniging_id = Vereniging_id Then toegevoeg = "Verenigingsnummer is al in gebruik."
Xmove = True
Else
(hier zeggen ze compileer fout ze verwachten een expressie)
Xmove = False
End If
tbvereniging.MoveNext
If tbvereniging.EOF Or Xmove = True Then Exit Do
Loop
If IsNull(Vereniging) Then
Xmove = True
toegevoegd = "U heeft de vereniging niet ingevoerd."
End If
If IsNull(Vereniging_id) Then
Xmove = True
toegevoegd = "U heeft de verenigingsnummer niet ingevoerd."
End If
If Xmove = False Then
tbvereniging.AddNew
tbvereniging!Vereniging_id = Vereniging_id
tbvereniging!Vereniging = Vereniging
tbvereniging!administrateur = administrateur
tbvereniging!tussenvoegsels = tussenvoegsels
tbvereniging!Achternaam = Achternaam
tbvereniging!Straat = Straat
tbvereniging!Postcode = Postcode
tbvereniging!Plaats = Plaats
tbvereniging!Telefoonnummer = Telefoonnummer
tbvereniging!Email = Email
toegevoegd = "de vereniging is succesvol ingevoerd"
End If
End Sub
Option Compare Database
Public myDB As Database
Public tbRing As Recordset
Public tbvereniging As Recordset
Public qryOpzoeken_ringuniek_AF As Recordset
Public qryOpzoeken_vereniging_ID As Recordset
Public qryOpzoeken_vereniging_NAAM As Recordset
Public qryOpzoeken_administrateur As Recordset
Public qryRegistrerenVereniging As Recordset
Public qryOpzoeken_ringreeks As Recordset
Private Sub Toevoegen_nieuw_vereniging_KNOP_Click()
Set myDB = DBEngine.Workspaces(0).Databases(0)
Set tbvereniging = myDB.OpenRecordset("vereniging_id")
Set qryRegistrerenVereniging = myDB.OpenRecordset("RegistrerenVereniging")
tbvereniging.MoveFirst
Do While tbvereniging.EOF = False
If tbvereniging!Vereniging_id = Vereniging_id Then toegevoeg = "Verenigingsnummer is al in gebruik."
Xmove = True
Else
(hier zeggen ze compileer fout ze verwachten een expressie)
Xmove = False
End If
tbvereniging.MoveNext
If tbvereniging.EOF Or Xmove = True Then Exit Do
Loop
If IsNull(Vereniging) Then
Xmove = True
toegevoegd = "U heeft de vereniging niet ingevoerd."
End If
If IsNull(Vereniging_id) Then
Xmove = True
toegevoegd = "U heeft de verenigingsnummer niet ingevoerd."
End If
If Xmove = False Then
tbvereniging.AddNew
tbvereniging!Vereniging_id = Vereniging_id
tbvereniging!Vereniging = Vereniging
tbvereniging!administrateur = administrateur
tbvereniging!tussenvoegsels = tussenvoegsels
tbvereniging!Achternaam = Achternaam
tbvereniging!Straat = Straat
tbvereniging!Postcode = Postcode
tbvereniging!Plaats = Plaats
tbvereniging!Telefoonnummer = Telefoonnummer
tbvereniging!Email = Email
toegevoegd = "de vereniging is succesvol ingevoerd"
End If
End Sub