Frage : Prüfung auf einer doppelten Kombination vor der Rettung eines neuen Rekords

Ich habe ein Antragsformular für eine Tabelle - hereinkommende Reisen.  Ich möchte eine Warnung herausgeben, wenn die Kombination von Passagier Identifikation und das Reisedatum bereits exists.

I morgens irgendeinen Code des Formats betrachtend:

Private VorDate_AfterUpdate ()
If DCount („*“, „tblJourneys“,“ [Passagier Identifikation] = Me.Passenger Identifikation und [Datum] = Me.Date ") > 0 Then
MsgBox („Duplikat“)
End If

but dieses zeigt immer eine Syntaxstörung.  Ich versucht verschiedene Kombinationen der Syntax, aber ohne reales success.

I morgens sure ist dieses verhältnismäßig direkt - Hoffnung jemand kann mit irgendeinem einfachem Code für this.

Regards

Richard
End Sub aufkommen

Antwort : Prüfung auf einer doppelten Kombination vor der Rettung eines neuen Rekords

Form frmNewJourney in der Entwurfsansicht öffnen
den Namen des kombinierten Kastens für Passagier von Field41 zu cboPassengerID ändern

dieses verwenden Codes

Privates VorTime_Enter ()
Wenn DCount („*“, „tblJourneys“,“ [Passagier Identifikation] = „u. Me.cboPassengerID u.“ und [Datum] = # " u. Me.DTPicker6 u. „#") > 0 dann
    MsgBox („Duplikat“)
   
Beenden wenn

Unterseeboot beenden