none
Evento ao apertar tecla RRS feed

  • Pergunta

  • 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


    domingo, 22 de setembro de 2019 20:50

Todas as Respostas

  • 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

    segunda-feira, 23 de setembro de 2019 01:37
  • 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."

    segunda-feira, 23 de setembro de 2019 14:44
  • 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

    segunda-feira, 23 de setembro de 2019 15:52
  • No access está em português mas deve ser visualizar teclas e sim está como "sim"
    segunda-feira, 23 de setembro de 2019 22:07