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 » Sex Set 20, 2019 10:27 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 6 vezes



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