Подтверждение сохранения записи в форме

Private Sub Form_BeforeUpdate(Cancel As Integer)

'Происходит например при преходах между записями или при закрытии формы

Dim strMsg As String

If Me.Dirty = True Then 'Вносились изменения

strMsg = "Данные изменены." & vbCrLf

strMsg = strMsg & "Вы хотите сохранить изменения?" & vbCrLf

strMsg = strMsg & "Нажмите [ДА] для записи, или [НЕТ] для отмены изменений."

If MsgBox(strMsg, vbQuestion + vbYesNo, "Сохранить запись?") = vbYes Then

'Процедура выхода - перехода к след записи, сохранения, "прыг" в другую форму.

' ...

Else

'Отмена внесённых изменений

Cancel = True ' Отмена всего (при закрытии формы выдаст сабж о невозможности сохранить ...)

Me.Undo 'Отмена изменений (возврат всех значений полей в исходное)

End If

End If

End Sub

Примечание:
Если в форме есть подчинённая - ЭТО её не касается