Fechando Form com Esc acresentando outro código

Tenho este código para fechar o form sem precisar de botão.

If KeyCode = 27 Then
DoCmd.close
EndIf

Precisoo Acresentar este código que esta em um botão de fechar form do nosso colega Lupercio.

If Not TestaCampos Then
Exit Sub
End If
DoCmd.Close

Não entendi. Explique o que significa cada objeto e o que quer avaliar para poder fechar o formulário.

Eu entendi criquio.

A função foi disponibilizada por mim.

Sebastião

É só incluir a função:

If KeyCode = 27 Then
If Not TestaCampos Then
'Aqui vai a saída do evento de onde você colocar o código
'
Exit Sub
End If
DoCmd.close
End If

Como você não colocou o código completo, não sei onde você colocou a verificação sde quando a tecla ESC foi pressionada.
É necessário saber, para que o código funcione a contento.

Abraços

Boa Tarde Balem!

Uso este código para fechar o form com a tecla (Esc)sem precisar de botão.
If KeyCode = 27 Then
DoCmd.close
EndIf
Tem outro Código ao Carregar

Precisoo Acresentar alguma parte deste código que esta em um botão de fechar form.
No botão de fechamento do form estava este código,com passar parte deste código para fechar com (Esc)
If Not TestaCampos Then
Exit Sub
End If
DoCmd.Close

Sebastião

Então façamos diferente, que é bem mais simples:

Coloque o código no evento Ao Descarregar do formulário, assim:

If Not TestaCampos Then
Cancel = True
End If

O evento Ao Descarregar (Unload) tem o evento cancel, já o Ao fechar não tem.

Então, o código irá verificar se existem campos em branco, se tiver, cancela o evento ao descarregar, não permitindo que o formulário se feche.

Abraços

Balem não deu certo tem como ver o que esta errado

http://speedy.sh/qzy7e/Fechar-com-Esc.rar

Sebastião

Copie e colo o código abaixo

Código:



Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = 27 Then
  If Not TestaCampos Then
      KeyCode = 0
  Else
  DoCmd.Close
  End If

End If

End Sub



abraços

Balem valeu

Funcionou perfeitamente, não gosto de usar botão para fechar form.

Obrigado

Abraço

Esqueci de colocar resolvido

Valeu pelo retorno Sebastião

Nós agradecemos

Boa sorte!

Boa Tarde balem

Porque este form não funciona com (Esc), os códigos que coloquei são = ao do outro que você enviou.

Não Mandei o form

http://speedy.sh/2FyYa/Fechar-com-Esc-sem-campo-nulo.rar

Sebastião

Está funcionando normalmente, só uns detalhes

Retire o evento Ao Carregar do formulário, você já definiu pra visualizar as teclas na folha de propriedades.

Retire também a chamada da função testaCampos do evento Ao Fechar do formulário, pois a mesma é feita quando pressiona a tecla ESC.

Mesmo com esses códigos a mais, ele está funcionando.
Outro detalhes, a função testacampo na está testando o campo nome por não haver o t na propriedade Marca, na folha de propriedade do controle.

Abraços

Não estou conseguindo fazer funcionar, fiz tudo que colocou na resposta ate o t em propriedade Marca

Dê uma revisão em tudo que postamos.

Aparece alguma mensagem de erro?

Provavelmente algum erro de digitação, quem sabe.