создаете переменную на уровне модуля формы
dim blnClose as boolean
Делаете две кнопки
Кнопка "Сохранить"
Код на нажание
if me.dirty then me.dirty = false
blnClose = true
docmd.close acform, me.name
Кнопка "Отменить"
Код на нажание
if me.dirty then me.undo
blnClose = true
docmd.close acform, me.name
на событие "выгрузка формы" (Unload)
пишите
cancel = not blnClose
На событие текущая запись пишите
blnClose = false
Писал по памяти, возможны ошибки
|