Private Sub РД2_NotInList(NewData As String, Response As Integer)                               '   Введенное значение отсутсвует в списке
'   Если событие возникает, но не удовлетворяет по критериям, пишете Response=acDataErrContinue.
'   Если новое значение можно принять, то Response=acDataErrAdded.
    Response = All_NotInList(NewData, Response)                                                         '   При закрытии окна значение из Response вылетает в наименование???
'    DoCmd.OpenForm "РедактироватьОбъект", OpenArgs:=iArg                                               '   Передать id объекта в модальную форму
'    Form_РедактироватьОбъект.Show
    Form_Open 0

End Sub