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