PROBLEMA NA BUSCA POR PRODUTOS

SACOFRITO 10/06/2010 11:43:20
#344470
Bom dia pessoal
Estou com um problema estranho
No meu form de pedido de compras, tenho um text box para procurar o produto...e alguns produtos ele encontra pelo código e outros nao

vou postar o código para a busca na tabela produtos


Citação:

Private Sub Text3_KeyPress(KeyAscii As Integer)

If KeyAscii = 13 Then
Set dsproduto = db.OpenRecordset([Ô]select * from produtos[Ô], dbOpenSnapshot)

If Text3 = [Ô][Ô] Then Exit Sub
[ô]On Error GoTo erro
dsproduto.FindFirst [Ô]codigo=[Ô] & Text3
If dsproduto.NoMatch Then
Text3 = [Ô][Ô]
Exit Sub
Else
If Not IsNull(dsproduto!descricao) Then
combo2 = dsproduto!descricao
vu.Text = Format(dsproduto!precovenda, [Ô]###,##0.00[Ô])
estoque.Text = dsproduto!estoque
PCMINIMO.Text = IIf(IsNull(dsproduto!PCMINIMO), 0, dsproduto!PCMINIMO)
estminimo.Text = IIf(IsNull(dsproduto!estmin), 0, dsproduto!estmin)

End If
End If
ERRO:
SendKeys (vbTab)
End If
End Sub

MSMJUDAS 10/06/2010 13:20:33
#344485
Mostra algum erro ou simplesmente não retornada nada?

Experimente colocar no LostFocus do Text3

E inclua isso no Form:

Private Sub Form_KeyPress(KeyAscii As Integer)
KeyAscii = Asc(UCase(Chr(KeyAscii)))
Select Case KeyAscii
Case 13: SendKeys [Ô]{Tab}[Ô]: KeyAscii = 0
Case 27: Unload Me
End Select
End Sub

Deixe o KeyPreview = True
SACOFRITO 10/06/2010 13:32:19
#344487
nao retorna nada... simplesmente cai no exit sub

If dsproduto.NoMatch Then
Text3 = [Ô][Ô]
Exit Sub [ô] AQUI
Else


estranho q esses produtos eu peguei o código direto do cadastro de produtos...a sua rotina ja está feita a msm coisa na minha ...no final de td qdo acha algo ele pula para o proximo campo
SACOFRITO 10/06/2010 13:52:13
#344490
ja descobri oq é.. é um erro no cadastro de produtos....na hora de digitar o codigo.. na vdd esse produto era 339 e eu digitei 3396 ... ele mostrou o 339

enfim.. nao tem nd errado.. foi problema de interpretaçao rs..


Vlw Judas por tentar ajudar
Tópico encerrado , respostas não são mais permitidas
Voltar