Vídeo recomendado
https://youtu.be/diWPPPhW-9E

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 »

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 »

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 »

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 562 vezes


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

Re: evento "ao apertar tecla"

Mensagem por srobles »

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


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