| |
|
|
| | Загорелось мне сделать такую штуку: делаем поле со списком (источник - справочная таблица), и если нужных данных там нет, то вводим их вручную, затем выскакивает msg - "добавить значение?" Жму "ОК" и оно добавляется. Эта штука 9функция) вешается кажись на "Отсутствие в списке". И по моему где то тут проскакивало. Вот только лень искать. Может оно опять сюда заскочит? Был бы весьма рад... | |
| |
| |
| |
|
|
| | http://hiprog.com/index.php?option=com_content&task=view&id=49
http://hiprog.com/index.php?option=com_content&task=view&id=661 | |
| |
| |
| |
|
|
| | Ну и дурень же я! И сам мог бы догадаться  | |
| |
| |
| |
|
|
| | Не все так гладко
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
|
значения в списке подстановок ведь не сохраняются. Вообще, можно их сохранить без использования таблицы? В смысле программно забить в свойство формы "Источник строк" | |
| |
| |
| |
|
|
| | если источник строк фиксированный набор, то только в конструкторе. | |
| |
| |
| |
|
|
| | Алексей, посмотри это решение
http://am.rusimport.ru/MSAccess/topic.aspx?ID=598 | |
| |
| |
