Событие До обновления
Определено для поля Дата поставки и проверяет введенную дату.
Private Sub дата_поставки_BeforeUpdate(Cancel As Integer)
If [дата поставки] > Date Then Cancel = True: MsgBox "неверная дата"
End Sub
Определено для поля Код изделия.Процедура выводит предупреждение и указывает действие,которое должно быть выполнено для продолжения работы с базой данных.Изменение данных в поле Код изделия не сохранится.
Private Sub код_изделия_BeforeUpdate(Cancel As Integer)
Cancel = True
MsgBox "вы изменили код изделия,его нельзя изменять, нажмите Esc"
End Sub
Событие определено для поля Артикул.До обновдения данных в этом поле выводится пояснение.
Private Sub артикул_BeforeUpdate(Cancel As Integer)
MsgBox "вы изменили артикул"
End Sub
1 | 2 | 3 | 4 | 5 | 6 | 7 | 8 | Поиск по сайту:
|