Evento ao apertar tecla

Question

Olá pessoal,

Estou precisando de ajuda no seguinte problema no access...

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?

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

Answer 1

Os tipos dos parâmetros estão incorretos:

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

---

Natan

Answer 2

Obrigado pela dica Natan, mas no access não funcionou, aparece o seguinte erro.

"a expressão ao apertar tecla que você inseriu como definição da propriedade de evento gerou o seguinte erro: o tipo definido pelo usuário não foi definido."

Answer 3

Ahhh

pensei que estava usando excel, faz o seguinte, no seu formulário, verifique se existe a propriedade KeyPreview e se ela está setada como Sim ou Verdadeiro.... nunca usei formulários em Access mas acredito que deva ser igual.

---

Natan

Answer 4

No access está em português mas deve ser visualizar teclas e sim está como "sim"