Ir para conteúdo
Fórum Script Brasil
  • 0

Tecla Enter


Guest - Alepe -

Pergunta

Guest - Alepe -

Pessoal a tecla enter é = a 13

Não estou localizando o camando que faz dispore um evento somente quando o ENTER for prescionado.

Private Sub txtcodprod_KeyPress(vbkeyenter As Integer)
Dim criterio, codigo As String

codigo = txtcodprod.Text

If codigo = Empty Then Exit Sub
criterio = "codigodoproduto ='" & codigo & "'"
rs3.MoveFirst
rs3.Find criterio, 0, adSearchForward


If rs3.EOF Then

Link para o comentário
Compartilhar em outros sites

4 respostass a esta questão

Posts Recomendados

  • 0

Costumo usar o evento KeyDown em vez do KeyPress:

Private Sub txtCodProd_KeyDown(KeyCode As Integer, Shift As Integer)
Dim criterio, codigo As String

If KeyCode = 13 Then Exit Sub 'Se não for enter, ele sai fora

codigo = txtcodprod.Text

If codigo = Empty Then Exit Sub
criterio = "codigodoproduto ='" & codigo & "'"
rs3.MoveFirst
rs3.Find criterio, 0, adSearchForward

Link para o comentário
Compartilhar em outros sites

  • 0

Faz assim: somente após teclar o ENTER é que você chama a sua função:

Private Sub Text1_KeyPress(KeyAscii As Integer)
  If KeyAscii = 13 Then teste (Text1.Text)
End Sub

Sub teste(ByVal msg As String)
  MsgBox msg
End Sub

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...