Добавление новой записи в раскрывающийся список

Добавление новой записи в раскрывающийся список на событие поля "Отсутствие в списке".

Private Sub фио_NotInList(NewData As String, Response As Integer)
If MsgBox("Добавить нового клиента?", vbOKCancel, "Добаление нового клиента") = vbOK Then
CurrentDb.Execute "insert into Клиенты(ФИО) values('" & NewData & "')"
Response = acDataErrAdded
Else
Response = acDataErrContinue
End If
End Sub

[databaseaccessvba]

Вы можете задать интересующие вас вопросы в телеграмм @VictorTMG