VBA fout expressie verwacht

[tamir]

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

 

[zRowix]

Wat dit allemaal precies inhoud is me even onduidelijk maar het is de bedoeling dat hij een record aan de tabel verenigingen toevoegd ?

 

[tamir]

jup

 

[zRowix]

en dit moet via code?

oké als het niet ander mag?

Even kijken of me dit uit mijn hoofd lukt.

Private Sub Toevoegen_nieuw_vereniging_KNOP_Click()

dim rs as recordset
set rs = currentdb.openrecordset("tblVereniging")

with rs
.addnew
![Vereniging_id] = "1"
![Vereniging] = "De Progers"
![administrateur] = "Ik niet"
![tussenvoegsels] = "HaHA"
![Achternaam] = "SjaakJan"
![Straat] = "Ph Donner"
![Postcode] = "0000 XX"
![Plaats] = "Woerden"
![Telefoonnummer] = "0900-8008"
![Email] = "Ik@jij.nl"
.update
end with

rs.close
rs = nothing
end sub

Zoiets moet het zijn

 

[tamir]

ik heb hier weer een fout, bij iemand anders gekeken en daar werkt het wel der staat bijna hetzelfde, (alleen andere tabel en query namen enzo..)

bij Xvereniging_ID = Registeren_Vereniging!vereniging_id + 1 geeft hij aan dat Xvereniging_ID leeg is, der staat toch wat achter?...

Private Sub generatienummers_KNO_Click()
Set myDB = DBEngine.Workspaces(0).Databases(0)
Set qryRegistreren_Vereniging = myDB.OpenRecordset("Registreren_Vereniging")

qryRegistreren_Vereniging.MoveLast
Xvereniging = qryRegisteren_Vereniging!vereniging_id + 1
vereniging_id = Xvereniging
toegevoegd = "Het Verenigingsnummer is gevonden"


End Sub

[edit]
nu snap ik der niks meer van, ik heb het opnieuw ingevoerd alles en krijg nu een andere foutmelding...

[/edit]

 

[tamir]

laat maar ik had een typfout...

 

[Tardis]

laat maar ik had een typfout...

toegevoeg in plaats van toegevoegd misschien

Tardis