Вставка нового аргумента в таблицу через форму поиска другой таблицы

Question

В моей базе данных есть форма для поиска товаров (поля: id, name, factory_id [для отображения имени производителя], category_id, цена)Я хотел бы иметь возможность добавлять производителей через эту форму.Итак, я создал скрипт VBA, но он не работает.Тем не менее, когда я ввожу новое имя, мне предлагается «выбрать элемент из списка».Что я делаю не так?

Private Sub manufacturer_id_NotInTheList(NewData As String, Response As Integer)

Dim strSQL As String, strInfo As String

strInfo = "Manufacturer " & NewData & " is not on the list." & vbCrLf & "Add?"
If MsgBox(strInfo, vbYesNo + vbQuestion, "Element not on the list") = vbYes Then
  strSQL = "INSERT INTO manufacturer (name, country, id_distributor) VALUES ('" & NewData & "','Undefined', '0');"
  DoCmd.SetWarnings (False)
  DoCmd.RunSQL strSQL
  Response = acDataErrAdded
Else
  Response = acDataErrContinue
  NewData = ""
  Me.manufacturer_id.Text = ""
End If

End Sub

Answer 1

Если для свойства «Ограничить список» в раскрывающемся списке задано значение «истина», Access будет перехватывать и пожаловаться первым (поскольку пользователь добавил производителя, которого нет в списке).

Попробуйте установить для параметра Limit to List значение false, тогда ваша процедура должна запуститься.