Este fórum está sendo desativado

[Tuliobxr]

Boa noite.

Criei um formulário (form_pesquisa) de busca de clientes que, ao digitar em uma texbox, carrega o valor do banco de dados em uma listbox. No entanto, gostaria que os dados (nome e telefone) fossem todos carregados na list quando ativasse o formulário e na textbox eu pusse filtrar os resultados. Desde já agradeço a ajuda.

[JCabral]

Tenta assim:

Código: Selecionar todos

Private Sub TextBox_pesquisa_nome_Change()

    Dim linha  As Integer
    linha = 0
    Set tabela = Nothing
    Set tabela = banco.OpenRecordset("SELECT * from [Dados$] WHERE [Dados$].[Nome] LIKE '" & Me.TextBox_pesquisa_nome & "*'")
    
    Me.ListBox_pesquisa.Clear
    
    Do Until tabela.EOF
        Me.ListBox_pesquisa.AddItem
        Me.ListBox_pesquisa.List(linha, 0) = tabela.Fields(1).Value
        Me.ListBox_pesquisa.List(linha, 1) = tabela.Fields(3).Value
        Me.ListBox_pesquisa.List(linha, 2) = tabela.Fields(6).Value
        linha = linha + 1
        tabela.MoveNext
    Loop
End Sub

[Tuliobxr]

Funcionou perfeitamente. Obrigado!