[Resolvido]ESC sai do form

Olá

Preciso de uma ajuda aqui na App !

Tenho o seguinte código - campo obrigatório

Código:

If IsNull(Me.ActiveControl) Then
MsgBox "Campo Obrigatório"
DoCmd.CancelEvent
End If

Pretendia que ao fazer ESC no campo fecha-se o form sem gravar . . .

Obrigado

Um bem hajam !

o sistema de busca aqui, tem muitos exemplos para isso, mas aqui vai uma deixa.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

If KeyCode = vbKeyEscape Then
KeyCode = 0
DoCmd.Close acForm, Me.Name
End If

End Sub

Obs...Tem de ter o Visualizar Tecla = Sim, nas propriedades do formulário.

faltou colocar o comando  Me.Undo. dependendo de como vai ser o seu evento o o undo tem que esta presente
If KeyCode = vbKeyEscape Then
   KeyCode = 0
  Me.Undo
  DoCmd.Close acForm, Me.Name
End If

End Sub

Valeu faltou mesmo, fazer no joelho e com pressa é nisso que dá !

Grato, pela inclusão !!!

Olá Amigos, antes de mais obrigado.

Só que não funciona !

Código:

Option Compare Database

Private Sub Hora_Data_Exit(Cancel As Integer)
If IsNull(Me.ActiveControl) Then
MsgBox "Campo Obrigatório"
DoCmd.CancelEvent
End If
End Sub

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyEscape Then
KeyCode = 0
Me.Undo
DoCmd.Close acForm, Me.Name
End If
End Sub


Ao fazer ESC no sai do campo nem fecha o form...

Deixo exemplo da APP (parte), form frmObrigatorio.

Obrigado

boas..

faltou isso nas propriedades do teu formulário:

Obs...Tem de ter o Visualizar Tecla = Sim, nas propriedades do formulário.

Obrigado amigo Sílvio , abraço !

O fórum agradece o retorno.