PESQUISAR AO DIGITAR

JOYYY 13/03/2017 23:22:34
#472416
Ola Colegas,

Desculpe caso já exista algo assim no fórum, mas fiz uma pesquisa e não consegui localizar.

Estou tentando criar uma rotina para filtrar os dados de acordo com o que for sendo digitado. Até fiz a rotina seguindo alguns exemplos, mas não tive sucesso. Será que alguém pode me dar uma luz?

  Sub PDIGIT()
    Dim str As String
    Dim I As Integer
    Dim lng As Long
    
    Me.LISTA.ListItems.Clear
    str = Me.txtpesquisa
    If str = Empty Then GoTo Final
    
        Do Until rs.EOF
            lng = InStr(1, rs([Ô]Nome[Ô]), str, vbTextCompare)
            If lng > 0 Then
               With Me.LISTA
                .ListItems.Add 1, , rs([Ô]Codigo[Ô])
                .ListItems(1).ListSubItems.Add 1, , Format(rs([Ô]Codigo[Ô]), [Ô]00000[Ô])
                .ListItems(1).ListSubItems.Add 2, , (rs([Ô]Nome[Ô])
                .ListItems(1).ListSubItems.Add 3, , rs([Ô]Duracao[Ô])
               End With
            End If

       Loop

end sub
JABA 14/03/2017 11:00:43
#472421 Resposta escolhida
Tópico encerrado , respostas não são mais permitidas
Voltar