busca no listview

[digital1984 0]

Pessoal,

 

O código abaixo esta funcionando certinho....

 

GOSTARIA DE IMPLANTAR A SEGUINTE BUSCA NESSE CÓDIGO

 

Private Sub preenche_lista()On Error Resume NextTabela.CloseOn erro GoTo trataerro Tabela.Open "SELECT * FROM Produtos WHERE proDescricao LIKE '%" & Text1.Text & "%' ORDER BY proDescricao", ConexaolstMostra.ListItems.ClearDo While Not Tabela.EOF   Set Lista = lstMostra.ListItems.Add(, , Tabela!proCodigo)   Lista.SubItems(1) = Tabela!proDescricao   Lista.SubItems(2) = Tabela!proQtde   Lista.SubItems(3) =  Tabela!proUnd   Lista.SubItems(4) = Tabela!proCategoria  Tabela.MoveNextLoopExit Subtrataerro:   MsgBox Err.Description, vbCritical, "Erro no sistema"End Sub

Gostaria que se o código repetisse ele pulava para o próximo registro..... nao repetisse o mesmo código

[Graymalkin 0]

Utilize uma variável para armazenar o último código e compare com o novo após o MoveNext. Se for o mesmo, vá fazendo MoveNext até que seja diferente.Abraços,Graymalkin

[digital1984 0]

Utilize uma variável para armazenar o último código e compare com o novo após o MoveNext. Se for o mesmo, vá fazendo MoveNext até que seja diferente.Abraços,Graymalkin

TEM COMO ME FAZER UM EXEMPLO

[Graymalkin 0]

TEM COMO ME FAZER UM EXEMPLO

Private Sub preenche_lista()On Error Resume NextTabela.CloseOn erro GoTo trataerroTabela.Open "SELECT * FROM Produtos WHERE proDescricao LIKE '%" & Text1.Text & "%' ORDER BY proDescricao", ConexaolstMostra.ListItems.ClearDo While Not Tabela.EOF   Set Lista = lstMostra.ListItems.Add(, , Tabela!proCodigo)   Lista.SubItems(1) = Tabela!proDescricao   Lista.SubItems(2) = Tabela!proQtde   Lista.SubItems(3) =  Tabela!proUnd   Lista.SubItems(4) = Tabela!proCategoria   último = Tabela.Fields("proCodigo").Value   do while Tabela.Fields("proCodigo").Value = último	  Tabela.MoveNext   loopLoopExit Subtrataerro:   MsgBox Err.Description, vbCritical, "Erro no sistema"End Sub

Não testei aqui, mas acredito que seria isso.Abraços,Graymalkin

[digital1984 0]

vich.. véinho...naum deu certo..... o programinha trava e naum continua... tipo assim paraliza... tem como dar uma olhadinha no código pra mim.?

[Graymalkin 0]

Experimente retirar os "On Error ..." e veja se ocorre algum erro.Abraços,Graymalkin