access if statement

Alles over programmeren en development binnen de IT-wereld
Plaats reactie
conehead
Elite Poster
Elite Poster
Berichten: 793
Lid geworden op: 26 mei 2009, 23:36
Uitgedeelde bedankjes: 3 keer
Bedankt: 22 keer

Hallo,

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
Gebruikersavatar
Goztow
Administrator
Administrator
Berichten: 14441
Lid geworden op: 14 nov 2006, 16:21
Locatie: Brussel
Uitgedeelde bedankjes: 1600 keer
Bedankt: 1194 keer
Recent bedankt: 6 keer

Ik ken niks van vba maar moet er geen komma op het einde van de lijn voor else?

[Afbeelding Post made via mobile device ]
Gebruikersavatar
cptKangaroo
Elite Poster
Elite Poster
Berichten: 3057
Lid geworden op: 18 dec 2004, 14:33
Locatie: 053 Aalst
Uitgedeelde bedankjes: 666 keer
Bedankt: 227 keer
Recent bedankt: 2 keer

In alle voorbeelden die ik zie, staat er een spatie tussen de tablename en de columns, dus
ipv van:

CurrentDb.Execute "INSERT INTO [Chauffeurs]([Chauffeur], [Adres], ...

probeer eens:

CurrentDb.Execute "INSERT INTO [Chauffeurs] ([Chauffeur], [Adres], ...
En er zit een overbodige spatie in de Values:
& " Values(' " & Me.Naam_voornaam
conehead
Elite Poster
Elite Poster
Berichten: 793
Lid geworden op: 26 mei 2009, 23:36
Uitgedeelde bedankjes: 3 keer
Bedankt: 22 keer

Het in de tabel zetten van dingen werkt zonder problemen het is met de if then and else dat ik problemen hebt ...

if value van Dcount groter is dan nul display dan een messagebox ...

else
kopiër de data naar volgende tabellen ...

Laat ik alles van if weg en doe ik ze afzonderlijk dan werkt het zonder problemen ...

Ik krijg dan als error "else zonder if"
conehead
Elite Poster
Elite Poster
Berichten: 793
Lid geworden op: 26 mei 2009, 23:36
Uitgedeelde bedankjes: 3 keer
Bedankt: 22 keer

Ik heb eindelijk de oorzaak gevonden

Ik was gewoon de haakjes bij de messagebox vergeten ...

Code: Selecteer alles

MsgBox ("Deze kaart is reeds ingelezen")
stom
Plaats reactie

Terug naar “Development”