Private Sub КодНасПункта_NotInList(NewData As String, Response As Integer)
    Dim s
    s = "НасПункт '" & NewData & "' нет в списке. " & vbCrLf _
    & " Внести - ОК;  Вернуться для выбора - Отмена"
    If MsgBox(s, vbOKCancel) = vbOK Then
        CurrentDb.Execute "insert into НасПункты(НасПункт) values('" & NewData & "')"
        Response = acDataErrAdded
      Else
        Response = acDataErrContinue
    End If
End Sub