[Resolvido]Fechar Formulario usando a tecla Esc

Olá amigos, estou novamente aqui com um problema estou tentando usar um código que é do mestre Plinio, que vai fechando a janela do formuláio, mas ele funciona quando clicado em um botão de comando, estou tentando adaptar para ser usado quando teclado a tecla esc.
O código do formulario é esse:

Option Compare Database
Option Explicit

Private Sub BotaoFechar_Click()

'Inicialmente a propriedade Tempo do Cronômetro
'estará em 0. Ao clicarmos no botão fecchar
'ativaremos a cotagem do cronômetro, colocando-o
'com um intervalo de 20 milisegundos.
'Para acelerar ou diminuir a velocidade do
'fechamento basta alterar o intervalo.
Me.TimerInterval = 40

End Sub

Private Sub Form_Timer()

Dim largura As Long, altura As Long
Static contagem As Integer
Dim porcentagem As Single

'Criamos um contador para controlar a
'porcentagem de diminuição no tamanho
'do form a cada ciclo, para que ele
'mantenha a velocidade de fechamento.
contagem = contagem + 2
porcentagem = (100 - contagem) / 100

'Calculamos as dimensões do formulário.
largura = Me.WindowWidth * porcentagem
altura = Me.WindowHeight * porcentagem

'Alteramos as dimensões do formulário.
DoCmd.MoveSize , , largura, altura

'Verificamos o tamanho atual do formulário.
'Se a largura for menor que 100 Twips o
'comando de fechamento é acionado.
If Me.WindowWidth < 100 Then
DoCmd.Close
End If

End Sub


Estou tentando retirar o botão de comando como já disse e colocar para funcionar quando clico na tecla esc, mas não funciona, alguém poderia ajudar, to usando esse código:

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

End Sub

Obrigada

Olá amanda...boa tarde.

Dê uma olhada nesse tópico em nosso fórum:

http://maximoaccess.forumeiros.com/t647-resolvidofechar-formulario-com-a-tecla-escape

obs.: ao apertar uma tecla para fechar formulário eu utilizo o seguinte código ( adaptando ao tua pergunta ):

ao_apertar_tecla ( KeyPress)
If KeyCode= 27 Then
DoCmd.close
End If

Olá Silvio, o código para fechar o formulário teclando a tecla ESC, eu ja tenho, o que estou tentando fazer é o seguinte adaptar o código para que ele feche o formulário até ir sumindo a janela teclando o ESC, pois do jeito que está tem que clicar no botão de comando para que ele realize o proposto no códgio, não sei se fui clara.

O código do Plinio está no começo do post,
Obrigada novamente

Boa noite

Será que serve ?

Olá todos , eu acho que não estou sendo bem clara com minha duvida, o que pretendo é o seguinte gostaria que esse formulário deste bd fechasse teclando a tecla ESC, com esse mesmo efeito de ir dimimuindo só que teclando a tecla ESC, e não no botão de comando

Olá a todos será que alguém poderia ajudar com esse problema, muito grata novamente

Ola Amanda;

Veja o simples;

http://dl.dropbox.com/u/771097/EfeitoII.rar

É boss(Jpaulo)

Quando to indo com o trigo você já vem com o pão!!!

Abraços

É um tempinho livre que tenho aqui e que é muito raro hoje em dia....

Olá JPaulo, Era isso mesmo que eu queria, não é atoa que o pessoal o chama de mestre, ao mestre um beijo em seu coração, obrigado a todos que contribuiram. Resolvido