ik ben niet al te goed in vba maar heb toch al redelijk wat werkend maar kom er hier niet uit en het lijkt me echter simpel
Ik wil eigenlijk gewoon controleren of het record bestaat en indien wel dat hij een error geeft met de melding dat dit reeds bestaat of is ingelezen.
Indien het nog niet bestaat dan mag hij alles naar een tabel kopiëren.
Het kopiëren op zich lukt en het tellen van de records ook maar in combinatie met de if krijg ik altijd een foutmelding (syntax)
Code: Selecteer alles
Private Sub Bewaren_Click()
If DCount("[RijksregisterNummer]", "Chauffeurs") > 0 Then MsgBox "Deze kaart is reeds ingelezen"
Else
CurrentDb.Execute "INSERT INTO [Chauffeurs]([Chauffeur], [Adres], [Postcode], [Woonplaats], [Nationaliteit], [RijksregisterNummer], [Kaartnummer], [Chipnummer])" _
& " Values(' " & Me.Naam_voornaam & "', '" & Me.Adres & "', '" & Me.Postcode & "', '" & Me.Woonplaats & "', '" & Me.Nationaliteit & "', '" & Me.RijksregisterNummer & "', '" & Me.Kaartnummer & "', '" & Me.Chipnummer & "');"
End If