aprire il frmNewJourney della forma nella vista di disegno
cambiare il nome della casella combinata per il passeggero da Field41 a cboPassengerID
usare questo codici
Time_Enter secondario riservato ()
Se DCount (“*„, “tblJourneys„,„ [identificazione del passeggero] = “& Me.cboPassengerID &„ e [data] = # " & Me.DTPicker6 & “#") > 0 allora
MsgBox (“duplicato„)
Concluder se
Concludere il sommergibile