Определение процедуры для события Valid

Рис. 12.2. Определение процедуры для события Valid

Выберите поле ввода значения кредита и для события Valid определите процедуру (рис. 12.2), которая проверяет введенное значение и при необходимости открывает диалоговое окно с сообщением об ошибке:

if THIS.Value > 5000

= MESSAGEBOX("Максимальный кредит для клиента составляет ;

5000 рублей." + ;

CHR(13) + ;

"В особых случаях согласуйте величину кредита ;

с Генеральным директором.",; 0+4 8+ 0, "Предупреждение")

endif

Запустите форму на выполнение, введите значение кредита более 5 000, перейдите на следующее поле. Откроется диалоговое окно с сообщением об ошибке (рис. 12.3).