ник: osmor
создаете переменную на уровне модуля формы
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)
пишите
На событие текущая запись пишите
Писал по памяти, возможны ошибки