Аривидерчиесть поле_со_списком в табличной форме

необходимо перехватить ошибку

- Введенный текст не соответствует ни одному из элементов списка
(Выберите элемент из списка или введите текст, соответствующий одному из этих элементов)


на событие IsnotInList - я повесил необходимую процедуру, но при этом ошибка продолжает вываливатся - хотелось бы ее заглушить
Код и описание ошибки в студию

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

АривидерчиPrivate Sub Lst_contract_des_NotInList(NewData As String, Response As Integer)
Dim rst As ADODB.Recordset
Set rst = New ADODB.Recordset

rst.Open "Contract", CurrentProject.Connection, adOpenDynamic, adLockPessimistic


rst.AddNew
rst.Fields("des") = Lst_contract_des.Text
rst.Update

Me.Form![tmp_work_fk_contract] = rst.Fields("PK")

rst.Close
Set rst = Nothing

Lst_contract_des_GotFocus

End Sub


Привожу также процедуру Lst_contract_des_GotFocus - которая обновляет список - в зависимости от значения еще одного списка


Private Sub Lst_contract_des_GotFocus()
Dim str As Variant

If Me.Form![tmp_work_contract_type] = 1 Then

str = "SELECT pk,des FROM contract Where contract.type = " & Me.Form![tmp_work_contract_type]

If Not IsNull(Me.Form![tmp_work_fk_kontragent]) Then
str = str + " and contract.fk_kontragent = " & Me.Form![tmp_work_fk_kontragent]
End If

Lst_contract_des.RowSource = str

Else

Lst_contract_des.RowSource = "SELECT pk,des FROM contract Where contract.type = 0"

End If


'Debug.Print Lst_contract_des.Text


End Sub

Анатолий, похоже, был прав - как всегда (обратите внимание насчет Response).

http://www.sql.ru/forum/actualthread.aspx?tid=659094

ссылка испортилась

http://www.sql.ru/forum/actualthread.aspx?tid=659094

Анатолий ( Киев )...
rst.AddNew
rst.Fields("des") = NewData
rst.Update
Response = acDataErrAdded
И больше ничего не надо (ИМХО).
Анатолий, вопрос: есть ли гарантия (при отсутствии runtime ошибки), что запись добавилась в таблицу при таком коде?