open form frmNewJourney in design view
change the name of the combo box for Passenger from Field41 to cboPassengerID
use this codes
Private Sub Time_Enter()
If DCount("*", "tblJourneys", "[Passenger ID]= " & Me.cboPassengerID & " and [Date] = #" & Me.DTPicker6 & "#") > 0 Then
MsgBox ("Duplicate")
End If
End Sub