10. Выполнение макроса при определенном условии

Пример 10.1.Пусть при вводе данных о новом объекте в формеОбъектытребуется предусмотреть вывод предупреждающего сообщения, если срок строительства объекта (т.е. разность даты окончания строительства и даты заключения контракта) составляет меньше 30 дней.

Макросдля данной задачисоздаетсяследующим образом.

1. Перейти на вкладку Макросы. Нажать кнопкуСоздать.

2. Выбрать из меню команду Вид – Условия. В окне описания макроса появляется колонкаУсловие.

3. В колонке Условиеввести условие:[Дата окончания]-[Дата заключения]<30. Никаких знаков в конце условия не ставится.

4. Ввести макрокоманду Сообщение. Указать ее аргументы:Сообщение–Срок меньше месяца!(т.е. текст сообщения, который должен выводиться на экран при выполнении условия),Сигнал – Да,Тип – Предупреждающее!.

5. Закрыть окно макроса, сохранив его под именем Предупреждение.

Подключение макросавыполняется следующим образом.

1. Перейти на вкладку Формы. Открыть формуОбъектыв режиме Конструктора.

2. Щелкнуть правой кнопкой мыши на поле Дата окончания(именно на поле, а не на подписи к нему). Выбрать командуСвойства. На вкладкеСобытияв строкеПосле обновлениявыбрать имя вызываемого макроса:Предупреждение. Закрыть окно свойств.

3. Сохранить изменения формы. Закрыть форму.

4. Попробовать ввести данные о двух объектах, для одного из которых срок строительства составляет больше 30 дней, а для другого – меньше (остальные данные – произвольные). Убедиться, что при вводе данных об объекте со сроком строительства меньше 30 дней выводится заданное сообщение.