ouvrir le frmNewJourney de forme dans la vue de conception
changer le nom de la boîte combinée pour le passager de Field41 en cboPassengerID
employer ceci des codes
Time_Enter secondaire privé ()
Si DCount (« * », « tblJourneys », » [identification de passager] = « et Me.cboPassengerID et » et [date] = # " et Me.DTPicker6 et « #") > 0 puis
MsgBox (« reproduction »)
Finir si
Finir le sous-marin