ник: palarm
Не все так гладко
Private Sub Дом_NotInList(NewData As String, Response As Integer)
Dim ctl As Control ' Возвращает объект Control, указывающий на поле со списком.
Set ctl = Me!Дом ' Приглашение подтвердить ввод нового значения.
If MsgBox("Значение отсутствует в списке. Добавить?", vbOKCancel) = vbOK Then
' Значение аргумента "Response" определяет добавление в список.
Response = acDataErrAdded
' Добавляет значение аргумента "NewData" в источник строк.
ctl.RowSource = ctl.RowSource & ";" & NewData
Else
' При нажатии кнопки "Отмена" подавляет вывод
' сообщения об ошибке и отменяет изменения.
Response = acDataErrContinue
ctl.Undo
End If
End Sub
|
значения в списке подстановок ведь не сохраняются. Вообще, можно их сохранить без использования таблицы? В смысле программно забить в свойство формы "Источник строк"