Vraag : Het controleren een dubbele combinatie vóór het bewaren van een nieuw verslag

Ik heb een ingangsvorm voor een lijst - ingaand reizen.  Ik wil een waarschuwing uitgeven als de combinatie van identiteitskaart van de Passagier en de Reis reeds exists.

I am bekijkend één of andere code van het formaat dateren:

Private SubDate_AfterUpdate ()
If DCount („*“, „tblJourneys“,“ [identiteitskaart van de Passagier] = identiteitskaart Me.Passenger en [Datum] = Me.Date ") > 0 Then
MsgBox („Duplicaat“)
End If

but dit toont altijd een syntaxisfout.  Ik heb diverse combinaties van syntaxis geprobeerd maar zonder echte success.

I zeker am dit is vrij ongecompliceerd - hoop iemand met één of andere eenvoudige code voor this.

Regards

Richard
End Sub kan op de proppen komen

Antwoord : Het controleren een dubbele combinatie vóór het bewaren van een nieuw verslag

open vormfrmNewJourney in ontwerpmening
verander de naam van de combodoos voor Passagier van Field41 in cboPassengerID

gebruik dit codeert

Privé SubTime_Enter ()
Als DCount („*“, „tblJourneys“,“ [identiteitskaart van de Passagier] = „& Me.cboPassengerID &“ en [Datum] = # " & Me.DTPicker6 & „#“) > 0 toen
    MsgBox („Duplicaat“)
   
Eind als

Sub van het eind