KeyDownEscape (VBA, MS Access)

Private Sub KeyDownEscape(frmCalling As Form, intKeyCode As Integer, intShift As Integer)

    Select Case intKeyCode
        Case vbKeyEscape
            If frmCalling.Dirty Then
                frmCalling.Undo
                frmCalling.Undo
                frmCalling.Undo
            Else
                DoCmd.Close acForm, frmCalling.Name, acSaveNo
            End If
    End Select

End Sub