ник: Мудрый клен
Проблема в том что не работает параметр Response процедуры NotList.
Что я сделал:
1. Код я перенес в отдельный модуль:
Public Function frm_SOTRUD_PRIMECH_NotInList(NewData As String, Response As Integer)
On Error GoTo 999
Response = False
CurrentDb.Execute ("INSERT INTO S_PRIM([NAME]) VALUES('" & NewData & "')"), dbFailOnError
Response = acDataErrAdded
Exit Function
999:
MsgBox Err.Description, vbCritical, Err.Number
Err.Clear
End Function
2. в параметре Comboxa вешаю : =frm_SOTRUD_PRIMECH_NotInList([PRIMECH];0)