Не получается проверить условие перед сохранением

В приведенном примере нужно перед сохранением проверить есть ли уже в tbl_2
записи на вводимую дату и вводимый борт. Помогите разобраться.
Сильно не пинайте, увы я не программист, а хочется быть хотя бы похожим

Создайте в таблице уникальный индекс на эти поля и записи не будут дублироваться.

Виноват, не полно сформулировал. Записи в таблице могут дублироваться , отличаться должны значением в поле [numer]. Если уже есть запись на вводимую дату и вводимый борт выдаеться сообщение.

agoti

Виноват, не полно сформулировал. Записи в таблице могут дублироваться , отличаться должны значением в поле [numer]. Если уже есть запись на вводимую дату и вводимый борт выдаеться сообщение.

Добавить в индекс еще и поле [numer] не вариант?

mds_world, спасибо, попробовал индексы на эти поля, но мне это не подходит.
Мне необходимо проверить есть ли уже в tbl_2 записи на вводимую дату и вводимый борт или нет. В принципе не обязательно перед сохранением записи.

Пытаюсь таким образом, ошибка. Понимаю что надо азбуку учить. Подскажите как правильно сделать!

Dim rst As Recordset
Dim w As Integer
Set rst = dbs.OpenRecordset("SELECT tbl_2.* from [tbl_2] where dataV=Me![dataV] and bort=Me![bort] ")
If rst.RecordCount > 0 Then
rst.MoveLast
rst.MoveFirst
w = MsgBox(" На эту дату есть " _
& rst.RecordCount & " записей ")
Else
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
End If

agoti

Set rst = dbs.OpenRecordset("SELECT tbl_2.* from [tbl_2] where dataV=Me![dataV] and bort=Me![bort] ")

Ошибка в том, что вы внутри текста SQL пишете ССЫЛКУ на объект Me, такие ссылки там недопустимы. Вместо этого в строку SQL следует вставить ЗНАЧЕНИЕ контролов. При этом вставляемое значение, в зависимости от его типа, должно иметь соответствующее оформление, что подробно описано в здешнем FAQ'е.

Private Sub Form_BeforeUpdate(Cancel As Integer)
'при повторении паспортных данных выводит сообщение
Dim  c
c = DLookup("[кодП]", "Продавец", _
    "[СерияПаспорта]& [НомерПаспорта]= '" & _
    Me.СерияПаспорта.Value & Me.НомерПаспорта.Value _
    & "'")
 If Not IsNull(c) Then
    b = MsgBox("Уже имеется продавец с такими паспортыми данными " & Chr(10) _
& "Открыть существующую запись? ", vbYesNo + vbCritical)
[инструкции....]
End Sub

Спасибо за помощь!