Private Sub Note1_NotInList(NewData As String, Response As Integer)
 On Error GoTo Sub_Err
    If MsgBox("В списке отсутствует. Добавить?", vbYesNo) = vbNo Then
        Response = acDataErrContinue
        Me!Note1.Undo
        Exit Sub
    End If
    
    Response = acDataErrAdded
    Dim db As Database, rec As Recordset
    Set db = CurrentDb
    Set rec = db.OpenRecordset("SELECT Note1.* FROM Note1;", dbOpenDynaset)
    rec.AddNew
    rec.Fields("Note1").Value = NewData
    rec.Update
    
Sub_Exit:
    On Error Resume Next
    Set cmd = Nothing
    Exit Sub
Sub_Err:
    MsgBox Err.Description
    Err.Clear
    Resume Sub_Exit

End Sub

If MsgBox("В списке отсутствует. Добавить?", vbYesNo) = vbNo Then
        Response = acDataErrContinue
        Me.Note1.LimitToList = False
Else ....