Отсутствует запись

[VistaSV30]

Здравствуйте!

Подскажите как корректно через VBA проверить что запись отсутствует в таблице, чтобы это не вызывало ошибку выполнения программы?

Спасибо!

[Teslenko_EA]

Здравствуйте VistaSV30.
"..запись отсутствует в таблице.." - корректно можно проверить свойства Recordset. Если таблица является источником данных формы можно проверить свойство её Рекордсета:

Function howRecord(oF as Form) As Long
with oF
     .Recordset.MoveLast
     .Recordset.MoveFirst
     howRecord = .Recordset.RecordCount
End With
End Function

при обращении к Рекордсету, независимо от того является он Рекордсетом источника данных объекта (формы) или открыт как самостоятельный Рекордсет, RecordCount корректно вернет кол-во записей только если "пробежаться" по всем записям - иногда проблематично.
Во время открытия Рекордсета указатель всегда на первой записи,
и если после открытия Рекордсета свойство .Recordset.EOF = True - записи отсутствуют.
Для такой проверки функцию должна содержать подобную конструкцию :
...If Not Recordset.EOF Then ' записи существуют..
Евгений.