Dim intClose As Integer '1-да(сохраняем данные при закрытии), 2-нет(отмена изменений при закрытии), 3-отмена(режим ожидания)
Dim intEsc As Integer '1-да(сохраняем изменения), 2-нет(отмена изменений), 3-отмена(режим ожидания)
'------------------------------------------------
Private Sub Form_BeforeUpdate(Cancel As Integer)
  Dim ctrl As control

  Set ctrl = Screen.ActiveControl

  If Me.Dirty = True Then 'если были внесены изменения
    Select Case MsgBox("Сохранить изменения?", vbYesNoCancel + vbQuestion, "Info. Form_BeforeUpdate")
      Case vbYes 'сохранение изменений
        If ПроверкаНаЗаполнение = True Then 'если все ок
          intClose = 1
        Else 'если косяк, стоим на месте в режиме ожидания исправлений
          intClose = 3
        End If

      Case vbNo 'отмена изменений - как тут правильно сделать отмену???
        intEsc = 2
        intClose = 2
        Me.Undo
'        Me.Dirty = False

      Case vbCancel 'режим ожидания
        intClose = 3
        Cancel = False
        ctrl.SetFocus
        Me.Dirty = True
        ctrl.SetFocus
    End Select

End Sub
'------------------------------------------------
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim ctrl As control
  
  Set ctrl = Screen.ActiveControl
  
  Select Case KeyCode
    ...
    Case vbKeyEscape
      If Me.Dirty = True Then
        Select Case MsgBox("Сохранить изменения?", vbYesNoCancel + vbQuestion, "Info. Form_KeyDown")
          Case vbYes 'сохранение изменений
            If ПроверкаНаЗаполнение = True Then 'если все ок
              intEsc = 1
            Else
              intEsc = 3
            End If

          Case vbNo 'отмена изменений
            intEsc = 2
            Me.Undo
'            Me.Dirty = False

          Case vbCancel 'режим ожидания
            intEsc = 3
            ctrl.SetFocus
            Me.Dirty = True
            ctrl.SetFocus
        End Select
      Else
        DoCmd.Close acForm, Me.Name, acSaveNo
      End If
  End Select

End Sub
'------------------------------------------------
Private Sub Form_Undo(Cancel As Integer)

  Select Case intEsc
    Case 1
      If (ПроверкаНаЗаполнение = True) Then 'если все ок
        DoCmd.RunCommand acCmdSaveRecord
        ...
      Else 'остаться на текущей записи и исправить запись
        Cancel = True
      End If

    Case 2 'отмена изменений
      Cancel = False

    Case 3 'остаться на текущей записи
      Cancel = True
  End Select

End Sub
'------------------------------------------------
Private Sub Form_Unload(Cancel As Integer)
  Dim ctrl As control

  Set ctrl = Screen.PreviousControl
  
  Select Case intClose
    Case 1 'сохранение изменений
      Cancel = False

    Case 2 'отмена изменений - как тут сделать отмену изменений???
      Cancel = False

    Case 3 'режим ожидания
      Cancel = True
      ctrl.SetFocus
      Me.Dirty = True
      ctrl.SetFocus
'    Case Else
'      Cancel = False
  End Select
  
End Sub

Private Sub Form_Error(DataErr As Integer, Response As Integer)

  Select Case DataErr
    Case 2169
'      Response = acDataErrContinue 'игнор стандартное сообщение Microsoft Access
'      MsgBox "В данное время сохранение объекта невозможно." & vbCrLf & vbCrLf & _
'              "В приложении обнаружена ошибка при попытке сохранения записи." & vbCrLf & _
'              "Если закрыть объект, выполненные изменения будут потеряны.", _
'              vbCritical, "Info. Ошибка № 2169"
'-------------
    Case 3314
      Response = acDataErrContinue
      intClose = 2
      MsgBox "Значение поля не может быть пустым.", vbCritical, "Info. Ошибка № 3314"
'-------------
    Case 3020
      Response = acDataErrContinue
      MsgBox "Update или CancelUpdate без AddNew или Edit.", vbCritical, "Info. Ошибка № 3020"
'-------------
    Case 3021
      Response = acDataErrContinue
      MsgBox "Текущая запись отсутствует.", vbCritical, "Info. Ошибка № 3021"
'-------------
    Case 3022
      Response = acDataErrContinue
      intClose = 2
      MsgBox "Вы ввели значение, которое уже существует в другой записи." & vbCrLf & _
              "Проверте значения в полях «Номер» и повторите попытку.", _
              vbCritical, "Info. Ошибка 3022"
  End Select
    
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
  Dim ctrl As control
  
On Error GoTo ErrNumber
  Select Case KeyCode
    Case vbKeyF2
      If Me.КнопкаСохранить.enabled = True Then
        КнопкаСохранить_Click
      End If
    Case vbKeyF5
      КнопкаОбновить_Click
'-----------------------------
    Case vbKeyEscape
      If Me.Dirty = False Then
        DoCmd.Close acForm, Me.Name, acSaveNo
      Else
        Select Case MsgBox("Отменить текущий ввод данных?", vbQuestion + vbOKCancel, "Info")
          Case vbOK
            intEsc = 1
            Me.Undo
          Case vbCancel
            intEsc = 2
            Me.КнопкаСохранить.SetFocus
            Set ctrl = Screen.PreviousControl
            ctrl.SetFocus
            Set ctrl = Nothing
        End Select
      End If
  End Select
End Sub

Private Sub Кнопка12_Click()
  Dim ctrl As Control
  
On Error GoTo ErrNumber
  Set ctrl = Screen.ActiveControl
  Me.Кнопка12.SetFocus
  ctrl.SetFocus
  
  blnSave = True
  DoCmd.RunCommand acCmdSaveRecord

ExitHeare:
  Set ctrl = Nothing
Exit Sub

ErrNumber:
  Select Case Err.Number
    Case 3022 'ошибка повторного значения записи
      MsgBox "Значение в поле «Номер» уже существует в другой записи.", _
              vbCritical, "Info"

      Resume ExitHeare
'-------------
    Case Else
      MsgBox "Процедура: Кнопка12_Click. Форма: " & Me.Name & vbCrLf & _
        Err.Description, vbCritical, "№ " & Err.Number
      Resume ExitHeare
  End Select
End Sub