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