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

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

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

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

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

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

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

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

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

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

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

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

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