Private Sub ПолеСоСписком_NotInList(NewData As String, Response As Integer)
CurrentDb.Execute "INSERT INTO Сотрудники ([ФИО],[ИД подразделение]) VALUES (""" & Replace(CStr(NewData), """", """""") & """, " & CStr([Forms]![Крановый узел]![ИД подразделение]) & ")"
Response = acDataErrAdded
End Sub
Если Вы уже зарегистрированы на Портале - войдите в систему, если Вы еще не регистрировались - пройдите простую процедуру регистрации.