ник: osmor
Response = False - это зачем?
Вообще за такое вольное обращение с типами переменных можно и поплатиться... ACCESS конечно простит когда в Integer пихают Boolean.... но другие я зыки могут сильно обидеться, лучше сразу привыкать к хорошему.
Поворчал, теперь по существу 
я бы сделал так:
Public Function frm_SOTRUD_PRIMECH_NotInList(NewData As String) as integer
On Error GoTo 999
CurrentDb.Execute ("INSERT INTO S_PRIM([NAME]) VALUES('" & NewData & "')"), dbFailOnError
frm_SOTRUD_PRIMECH_NotInList = acDataErrAdded
Exit Function
999:
MsgBox Err.Description, vbCritical, Err.Number
Err.Clear
End Function
|
Вызывал бы так:
Private Sub Поле_NotInList(NewData As String, Response As Integer)
Response = frm_SOTRUD_PRIMECH_NotInList(NewData)
End Sub
|