Код VBA (для события поля со списком "Отсутствие в списке") для добавления новой записи в таблицу

Private Sub Код_короткого_текста_NotInList(NewData As String, Response As Integer)
    If MsgBox("Внести новый текст?", vbOKCancel) = vbOK Then
        With CurrentDb.OpenRecordset("select * from  [Короткие тексты]")
            .AddNew
            ![Короткий текст] = NewData
            .Update
        End With
        Response = acDataErrAdded
    Else
        Response = acDataErrContinue
    End If
End Sub

Private Sub Ctl1_Код_короткого_текста_NotInList(NewData As String, Response As Integer)
 
If MsgBox("Этого текста нет в справочнике, вы хотите его добавить?", vbYesNo) <> vbYes Then
Exit Sub
Else
Dim sql As String
sql = "insert into [короткие тексты] ([короткий текст])" _
& " values ( '" & Me![Код короткого текста].Text & "' )"
 
CurrentDb.Execute sql
Response = acDataErrAdded
End If
End Sub

Private Sub Код_кт_NotInList(NewData As String, Response As Integer)
 
If MsgBox("Этого текста нет в справочнике, вы хотите его добавить?", vbYesNo) <> vbYes Then
Exit Sub
Else
Dim sql As String
sql = "insert into [короткие тексты] ([короткий текст])" _
& " values ( '" & Me![Код_кт].Text & "' )"
 
CurrentDb.Execute sql
Response = acDataErrAdded
End If
End Sub