раскройте frmNewJourney формы в взгляде конструкции
измените имя комбинированной рамки для пассажира от Field41 к cboPassengerID
используйте это Кодие
Приватное Sub Time_Enter ()
Если DCount, то («*», «tblJourneys»,» [удостоверение личности пассажира] = «& Me.cboPassengerID &» и [дата] = # " & Me.DTPicker6 & «#") > 0 после этого
MsgBox («дубликат»)
Закончитесь если
Закончите подводную лодку