abrir o frmNewJourney do formulário na opinião do projeto
mudar o nome da caixa combinado para o passageiro de Field41 ao cboPassengerID
usar isto códigos
Time_Enter secundário confidencial ()
Se DCount (“*”, “tblJourneys”,” [identificação do passageiro] = “& Me.cboPassengerID &” e [data] = # " & Me.DTPicker6 & “#") > 0 então
MsgBox (“duplicata”)
Terminar se
Terminar o submarino