Access: как в таблице не сохранять изменения

[Ashley]

Обычная форма в Access с полями таблицы. Пользователь изменяет поля и переходит на следующую запись. Отдельно есть кнопка "Сохранить".
Как при переходе на след. запись спросить, сохранить ли изменения, и если ответ "нет", то перейти на след. запись без сохранения?
При этом, если изменений не было или были, но они уже сохранены при помощи кнопки "сохранить", спрашивать не надо.

[pokerlifer]

сообщение "повесить" на событие BeforUpdate - но тогда спрашивать будет всегда, при любом сохранении.
можно правда выяснять, что это событие вызвало: кнопка "Сохранить" или иное: переход на другую запись, SHift+Enter и т.д.

Option Compare Database
Dim x1 As Boolean 'переменая, которая запоминает что вызвало событие "BeforUpdate"

Private Sub Command4_Click()
'кнопка сохранения
x1 = True
DoCmd.RunCommand acCmdSaveRecord
End Sub

Private Sub Form_BeforeUpdate(Cancel As Integer)

If x1 = False Then 'если сохранение не по кнопке
If MsgBox("Сохранить данные?", vbYesNo) = vbNo Then _
DoCmd.RunCommand acCmdUndo
End If

x1 = False
End Sub

коряво правда, но мы люди простецкие.