VERIFICAR SE PRODUTO EXISTE AO PRESIONAR ENTER

USUARIO.EXCLUIDOS 11/11/2010 10:53:19
#357193
Bom dia, pessoal.
minha duvida e o seguinte como faço para verificar se produto existe ao presionar enter.
segue meu codigo.

Dim rs As New ADODB.Recordset
rs.Open [Ô]Select * from tblProduto where CodigoBarras like[ô][Ô] & txtCodBarras & [Ô][ô][Ô], con, adOpenDynamic, adLockPessimistic

If rs.EOF Then
Else
txtDescricao.Caption = rs!Produto & [Ô][Ô]
txtPrUnit.Caption = Format(rs!PrVenda, [Ô]Standard[Ô]) & [Ô][Ô]
txtEstoque.Caption = rs!Estoque & [Ô][Ô]
[ô]------------------------------------------------------
txtSubTotal.Caption = txtPrUnit.Caption * txtQtd.Text
txtSubTotal.Caption = Format(txtSubTotal.Caption, [Ô]Standard[Ô])
[ô]------------------------------------------------------
Call Command2_Click
[ô]------------------------------------------------------
txtQtd.Text = [Ô]01[Ô]
txtCodBarras.Text = [Ô][Ô]
txtCodBarras.SetFocus
End If
ASHKATCHUP 11/11/2010 10:55:52
#357194 Resposta escolhida
Ao pressionar enter aonde? Num textbox? Num grid? Num form? Seja mais específico.
USUARIO.EXCLUIDOS 11/11/2010 10:57:32
#357195
Num textBox
ASHKATCHUP 11/11/2010 10:59:36
#357196 

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
    [ô]
    If KeyCode = vbKeyReturn Then
        [ô]Código para validar se existe
    End If
    [ô]
End Sub
USUARIO.EXCLUIDOS 11/11/2010 11:10:55
#357198
Valeu amigo, era isso mesmo que precisava.
Tópico encerrado , respostas não são mais permitidas
Voltar