Access Busca para preencher List View VBA ACCESS

[DavidsonGomes1998]

Bom dia mestres,

 

Eu to fazendo um método de pesquisa por ListView, com uma tabela no access.

pimeiro fiz a condição de se todas as checkbox estiverem desmarcadas ele buscar todos os cadastros, ae ai tudo perfeito

depois fui fazendo as IF para cada checkbox, fiz a ID funcionou perfeitamente, porém logo na segunda IF do cliente nao funciona. nao consigo entender por que!

abaixo esta o codigo o trabalhando e uma print do Formulário!

    Dim ID As String
    Dim CLIENTE As String
    
    
If Me.CheckBox_ID.Value = False And Me.CheckBox_Cliente.Value = False And Me.CheckBox_CPF.Value = False _
And Me.CheckBox_CNPJ.Value = False And Me.CheckBox_Cidade.Value = False And Me.CheckBox_UF.Value = False Then
    
    
    ConectDB
    
    rs.Open "Select * from tb_clientes", db, 3, 3
    
    On Error Resume Next
    
    Me.ListView1.ListItems.Clear
    
    While Not rs.EOF
    
        Set List = Me.ListView1.ListItems.Add(Text:=rs(0))
            List.SubItems(1) = rs(1)
            List.SubItems(2) = rs(2)
            List.SubItems(3) = rs(4)
            List.SubItems(4) = rs(5)
            List.SubItems(5) = rs(6)
            List.SubItems(6) = rs(7)
            List.SubItems(7) = rs(8)
            List.SubItems(8) = rs(10)
            List.SubItems(9) = rs(12)
            
            rs.MoveNext
    Wend
    
    FechaDb
End If

If Me.CheckBox_ID.Value = True Then

    ID = Me.Txt_Busca.Text
    
    ConectDB
    
    rs.Open "Select * from tb_clientes where Codigo like '" & ID & "'", db, 3, 3
    
    On Error Resume Next
    
    Me.ListView1.ListItems.Clear
    
    While Not rs.EOF
    
        Set List = Me.ListView1.ListItems.Add(Text:=rs!Codigo)
            List.SubItems(1) = rs!Nome
            List.SubItems(2) = rs!DECONTO
            List.SubItems(3) = rs!CPF
            List.SubItems(4) = rs!CNPJ
            List.SubItems(5) = rs!ENDERECO
            List.SubItems(6) = rs!CIDADE
            List.SubItems(7) = rs!ESTADO
            List.SubItems(8) = rs!TELEFNE
            List.SubItems(9) = rs!Email
            
            rs.MoveNext
    Wend
    
    FechaDb
End If

If Me.CheckBox_Cliente.Value = True Then

    CLIENTE = Me.Txt_Busca.Text
    
    ConectDB
    
    rs.Open "Select * from tb_clientes where Nome like '" & CLIENTE & "'", db, 3, 3
    
    On Error Resume Next
    
    Me.ListView1.ListItems.Clear
    
    While Not rs.EOF
    
        Set List = Me.ListView1.ListItems.Add(Text:=rs!Codigo)
            List.SubItems(1) = rs!Nome
            List.SubItems(2) = rs!DECONTO
            List.SubItems(3) = rs!CPF
            List.SubItems(4) = rs!CNPJ
            List.SubItems(5) = rs!ENDERECO
            List.SubItems(6) = rs!CIDADE
            List.SubItems(7) = rs!ESTADO
            List.SubItems(8) = rs!TELEFNE
            List.SubItems(9) = rs!Email
            
            rs.MoveNext
    Wend
    
    FechaDb
End If


End Sub

[Basole]

Só com a imagem do seu userform e componentes, fica difícil dar um parecer exato.

 

De qualquer forma, experimente acrescentar o caractere % após aspas simples, para pesquisar, no campo todo .

 

rs.Open "Select * from tb_clientes where Nome like '%" & CLIENTE & "'%", db, 3, 3

 

[DavidsonGomes1998]

3 horas atrás, Basole disse:

Só com a imagem do seu userform e componentes, fica difícil dar um parecer exato.

 

De qualquer forma, experimente acrescentar o caractere % após aspas simples, para pesquisar, no campo todo .

 

rs.Open "Select * from tb_clientes where Nome like '%" & CLIENTE & "'%", db, 3, 3

 

Consegui muito obrigado