|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.02.2018, 23:00 | #1 |
Регистрация: 09.12.2017
Сообщений: 4
|
Сохранение введенных данных с проверкой
Здравствуйте! Нужна помощь! Есть форма, в которой в зависимости от значения Флажка9 поле WIN либо доступно либо нет. При нажатии на кнопку "Сохранить" запускается функция funCmdApply(), которая проверяет, заполнены ли обязательные поля. Что нужно изменить в этой функции, чтобы она проверяла только те поля, к которым в момент сохранения есть доступ. Т.е. в этом конкретном примере игнорировала при сохранении поле WIN, если оно недоступно и проверяло его заполнение, если оно доступно. Пример прилагается. Заранее благодарю за помощь.
|
23.02.2018, 05:51 | #2 | |
Пользователь
Регистрация: 23.02.2018
Сообщений: 82
|
Цитата:
If ctl.Enabled = True Then 'контроль доступен ' ... End If
mailto: 2867077@gmail.com
|
|
23.02.2018, 07:11 | #3 |
2 the Nation Glory
Старожил
Регистрация: 27.05.2014
Сообщений: 3,289
|
Вы пробовали так писать? Приложите, пожалуйста, рабочий пример базы
Кто умер, но не забыт, тот бессмертен.
Лао-Цзы. |
23.02.2018, 10:47 | #4 |
Регистрация: 09.12.2017
Сообщений: 4
|
Пробовал. Ошибку выдает. Не пойму, может не в то место цикл вставляю. Буду еще пробовать.
|
23.02.2018, 17:22 | #5 |
Пользователь
Регистрация: 23.02.2018
Сообщений: 82
|
Код:
Или я чего не понимаю. Кстати код далеко не оптимален, у вас, но работает и ладно (сойдёт и так). На мой скромный взгляд, например, ссылку на форму лучше в аргументе предавать, а не использовать: Set frm = Screen.ActiveForm ... Ибо там (в "ActiveForm") может оказаться не то что нужно при нескольких открытых формах.
mailto: 2867077@gmail.com
Последний раз редактировалось Eugene-LS; 23.02.2018 в 17:47. |
23.02.2018, 17:33 | #6 | |
Пользователь
Регистрация: 23.02.2018
Сообщений: 82
|
Цитата:
Код:
Это как вариант.
mailto: 2867077@gmail.com
Последний раз редактировалось Eugene-LS; 23.02.2018 в 17:42. |
|
24.02.2018, 09:55 | #7 |
Регистрация: 09.12.2017
Сообщений: 4
|
Огромное спасибо! Все работает как надо.
|
24.02.2018, 11:05 | #8 |
Регистрация: 09.12.2017
Сообщений: 4
|
Итак, для неопытных разработчиков. Инструкция. Копируете модуль "Module1" в свою базу данных. На нужных кнопках в "свойствах", "События", "Нажатие кнопки" вписываете =funCmdApply() или =funFormUndo().
В полях, заполнение которых обязательно "Свойства", "Другие", "Дополнительные сведения" ставите восклицательный знак и заполняете "Текст строки состояния" нужной вам фразой подсказки. И всё. Активировать и деактивировать поля можно не только с помощью флажка, но и группой переключателей. Тогда процедура обработки событий будет выглядеть так "Свойства", "События", "После обновления": Private Sub Группа11_AfterUpdate() If Me.Группа11 = 2 Then Me.WIN.Enabled = True Else 'Me.WIN.Locked Me.WIN.Enabled = False Me.WIN.Value = "" End If End Sub В этой строчке If Me.Группа11 = 2 Then цифра 2 значение переключателя, которое активирует поле. Me.WIN.Value = "" это очистка поля при его деактивации. Последний раз редактировалось 6element; 24.02.2018 в 11:09. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Не происходит сохранение введенных значений | Belfire | C# (си шарп) | 0 | 14.06.2017 03:39 |
Проблема с Проверкой данных | ssg | Microsoft Office Excel | 3 | 20.04.2013 23:56 |
Сохранение введенных данных в файл | d.scorp | JavaScript, Ajax | 1 | 06.04.2011 20:49 |
Сохранение ранее введенных значений в TEdit | Pcrepair | Общие вопросы Delphi | 10 | 07.01.2011 19:38 |
Проверка введенных данных | viscas | PHP | 4 | 01.06.2009 02:41 |