Вопрос : Проверять для двойной комбинации перед сохранять новый рекорд

Я имею форму входа для таблицы - входя в путешествия.  Я хочу выдать предупреждение если удостоверение личности пассажира сочетание из и дата уже exists.

I am путешествием смотря некоторое Кодего формы:, то
If DCount

Private Sub Date_AfterUpdate () («*», «tblJourneys»,» [удостоверение личности пассажира] = удостоверение личности Me.Passenger и [дата] = Me.Date ") > 0
but
End If
Then
MsgBox («дубликата») это всегда показывает вверх ошибку синтаксиса.  Я имею судимый различный синтаксис сочетание из но без реального success.

I am конечно это относительно прямодушно - упование кто-то может прийти вверх с некоторым просто Кодим для this.

Regards

Richard
End Sub class=

Ответ : Проверять для двойной комбинации перед сохранять новый рекорд

раскройте frmNewJourney формы в взгляде конструкции
измените имя комбинированной рамки для пассажира от Field41 к cboPassengerID

используйте это Кодие

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

Закончите подводную лодку