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