Página 1 de 1

evento "ao apertar tecla"

Enviado: Qui Set 19, 2019 10:06 pm
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

Re: evento "ao apertar tecla"

Enviado: Sex Set 20, 2019 8:50 pm
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

Re: evento "ao apertar tecla"

Enviado: Sáb Out 26, 2019 7:59 pm
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 273 vezes

Re: evento "ao apertar tecla"

Enviado: Ter Out 29, 2019 4:00 pm
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