ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

evento "ao apertar tecla"

Cristiano.R
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Set 19, 2019 6:13 pm

evento "ao apertar tecla"

Mensagem por Cristiano.R » Qui Set 19, 2019 10:06 pm

Boa noite,

Estou precisando de ajuda no seguinte problema...

Criei um formulário com um campo para inserir os códigos dos produtos e escrevi um código que deveria rodar após apertar a tecla enter no evento "ao apertar tecla" mas quando teclo enter o cursor troca de campo e não executa a função. como poderia resolver este problema?

Código: Selecionar todos

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

 If ((KeyCode = 13) Or (KeyCode = 9)) Then
   If TxtCodigoBarras.Text <> "" Then
      'ação
   End If
 End If
 
End Sub



Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


GuegoArgollo
Acabou de chegar
Acabou de chegar
Mensagens: 1
Registrado em: Sex Set 20, 2019 12:49 pm

Re: evento "ao apertar tecla"

Mensagem por GuegoArgollo » Sex Set 20, 2019 8:50 pm

Achei uma provável solução aqui: http://www.vbforums.com/showthread.php? ... -Excel-VBA
Tente o seguinte:

Private Sub TextBox1_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If ((KeyCode = 13) Or (KeyCode = 9)) And (TxtCodigoBarras.Text <> "") Then
'ação
End If
End Sub



Cristiano.R
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Set 19, 2019 6:13 pm

Re: evento "ao apertar tecla"

Mensagem por Cristiano.R » Sáb Out 26, 2019 7:59 pm

Obrigado pela ajuda Guego, eu já havia testado este código mas no access não funcionou, estou postando o BD para facilitar.
teste.zip
(410.12 KiB) Baixado 274 vezes



srobles
Jedi
Jedi
Mensagens: 779
Registrado em: Qua Mai 06, 2015 7:39 pm

Re: evento "ao apertar tecla"

Mensagem por srobles » Ter Out 29, 2019 4:00 pm

Cristiano,

Experimente :

Código: Selecionar todos

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

 If ((KeyCode = vbKeyReturn) Or (KeyCode = vbKeyTab)) Then
   If TxtCodigoBarras.Value <> "" Then
      'entrarvalor
   End If
 End If
 
End Sub


Espero ter ajudado.

Abs.

Saulo Robles


Remember when you were young?
You shone like the sun.
Shine On You Crazy Diamond


Se suas dúvidas foram esclarecidas, acrescente ao lado do título o texto [RESOLVIDO].

Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder