АвтоАвтоматизацияАрхитектураАстрономияАудитБиологияБухгалтерияВоенное делоГенетикаГеографияГеологияГосударствоДомДругоеЖурналистика и СМИИзобретательствоИностранные языкиИнформатикаИскусствоИсторияКомпьютерыКулинарияКультураЛексикологияЛитератураЛогикаМаркетингМатематикаМашиностроениеМедицинаМенеджментМеталлы и СваркаМеханикаМузыкаНаселениеОбразованиеОхрана безопасности жизниОхрана ТрудаПедагогикаПолитикаПравоПриборостроениеПрограммированиеПроизводствоПромышленностьПсихологияРадиоРегилияСвязьСоциологияСпортСтандартизацияСтроительствоТехнологииТорговляТуризмФизикаФизиологияФилософияФинансыХимияХозяйствоЦеннообразованиеЧерчениеЭкологияЭконометрикаЭкономикаЭлектроникаЮриспунденкция

Событие До обновления

Читайте также:
  1. В чем заключается социальная сущность моды по теории социокультурного обновления? Кто в этом случае выступает лидерами моды?
  2. Возобновления леса
  3. Возобновления леса
  4. Годов. Попытки обновления социализма и причины неудач
  5. Двадцать первая серия: событие
  6. Джо стоял, поражённый этой странностью, удивлённо мигая глазами и подняв брови. Для него было необъяснимо это событие.
  7. Истина как событие открытости мира
  8. ИСХОДНОЕ СОБЫТИЕ
  9. Лизинг как современная форма обновления основных средств
  10. Обновления общества
  11. Образец инструкции (Событие)
  12. Образец опросного листа с ответами (Событие)

Определено для поля Дата поставки и проверяет введенную дату.

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 |

Поиск по сайту:

Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав. Студалл.Орг (0.003 сек.)