Tomás Vásquez Fórum

Enviado: **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

Enviado: **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

Enviado: **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 576 vezes

Enviado: **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

Tomás Vásquez Fórum

evento "ao apertar tecla"

evento "ao apertar tecla"

Re: evento "ao apertar tecla"

Re: evento "ao apertar tecla"

Re: evento "ao apertar tecla"