Tecla Enter

[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

[kuroi]

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

[Guest - Alepe -]

Ele deixa somente digitar 2 letras e vai para checar o produto.

O codigo do produto tem 4 digitos.

[Decio]

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

[alepe]

É isso Valeu... Funcionou que uma beleza....