dubbele Dcount met check

[scw]

Goedendag,

Om duplicaten te voorkomen probeer ik een Dcount functie in te bouwen:

Private Sub Opslaan_Click()
On Error GoTo Err_Opslaan_Click

Dim Duplicates As Long

Duplicates = DCount("Voornaam", "tblLeden", "Me!Voornaam")

If Trim(Me!Achternaam & "") = "" Then
MsgBox "Vul de achternaam van het clublid in.", vbInformation, "VoorbeeldDB"
Me.Achternaam.SetFocus

ElseIf Duplicates >= 1 Then MsgBox "Duplicaten gevonden!", vbCritical, "VoorbeeldDB"

Else
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Close acForm, "frmNieuwLidToevoegen"
Exit Sub

End If
    
Exit_Opslaan_Click:
    Exit Sub

Err_Opslaan_Click:
    MsgBox Err.Description
    Resume Exit_Opslaan_Click

End Sub

Maar hoe kan ik een dubbele variabele in de Dcount gooien: dus ik zou willen controleren op zowel het veldje 'Voornaam' alsmede het veld 'Geboortedatum' op hetzelfde form. Daarnaast krijg ik een melding "U hebt de vorige bewerking geannuleerd."

Ik ben benieuwd wat ik zoal moet aanpassen... bedankt voor de hulp.

Gr, scw

 

[OctaFish]

Je gebruikt een beetje vreemde DCount die volgens mij nu al niet zou moeten werken; je vergelijkt het veld Me!Voornaam namelijk nergens mee. Dus dan werkt de DCount alleen op het veld Voornaam, en zal er ongetwijfeld een hogere waarde dan 1 uitrollen. En dan hebben we het nog niet over de datum toevoeging gehad... Ik denk dat-ie zo moet:

Duplicates = DCount("[Voornaam]", "tblLeden", "[Voornaam]='" & Me.Voornaam & "' AND [Geboortedatum] =#" & Me.Geboortedatum & "#")

 

[scw]

Dank! Ook voor de uitleg...

Nu geen foutmelding meer, echter ik krijg ook (nog) geen MsgBox??

Is dit wel goed?

ElseIf Duplicates >= 1 Then
MsgBox "Duplicaten gevonden!", vbCritical, "VoorbeeldDB"

 

[scw]

Excuus! Hij doet het wel! :d

Hartelijk dank voor de hulp!

Ik zet hem op opgelost!