[Resolvido]Carregar dados em uma listbox

Boa noite.
Possuo um formulario de pesquisa onde digitando qualquer parte de uma palavra a listbox é carregada automaticamente. Ao tentar colocar mais uma coluna da minha consulta para que ele realize esta consulta nao funcionou.
Como fazer para este procedimento funcionar.

Boa noite.
Como não está funcionando? Ele não está aparecendo na lista? Qual é o tipo do campo? Para que esse campo serve?

Boa noite.

O que tentei fazer , porém não funcionou como esperado.
Quando no campo de pesquisa eu digitar, ele procurará nos seguintes campos ( Id_DescSistema, Id_FornecProduto e Id_refCadastro), onde todos estes campos são considerado texto na Tab_Cadastro

Segue abaixo o código que coloquei, porém ele só realiza a pesquisa no campo Id_DescSistema. Quando tentei colocar critério para procurar nos outros dois campos, ele não funcionou

Código:



Private Sub Txt_Pesquisa_Change()
    Call AtualizaLista
    Me.Lst_Estoque.Enabled = True
End Sub

Public Sub AtualizaLista()
    Dim sSQL As String

    Me.Txt_Pesquisa.SetFocus

   
    sSQL = "SELECT * FROM csconsultacadastro WHERE Id_Descsistema Like  '*" & Trim(Me.Txt_Pesquisa.Text) & "*'"

    Me.Lst_Estoque.RowSource = sSQL
    Me.Lst_Estoque.Requery

End Sub




Olá Denilson,

Tente isso:

Código:


 sSQL = "SELECT * FROM csconsultacadastro
 sSQL = sSQL & " WHERE Id_Descsistema Like  '*" & Trim(Me.Txt_Pesquisa.Text) & "*'"
 sSQL = sSQL & " OR Id_FornecProduto  Like  '*" & Trim(Me.Txt_Pesquisa.Text) & "*'"
 sSQL = sSQL & " OR Id_refCadastro Like  '*" & Trim(Me.Txt_Pesquisa.Text) & "*'"



Att,

Alexandre Fim

Boa noite
Porém quando eu digito no campo pesquisa a informação para localizar pela descrição quando gero o relatorio os dados ficam iguais, porém quando ele realiza o filtro pelo fornecedor ou referencia o relatorio gerado não fica igual a da listbox.
Ou seja, qualquer que seja o filtro utilizado para pesquisar em uma das 3 colunas, o conteudo da relatoruio tem que ser igual a da listbox

Código:



Private Sub Btn_GeraRelatorio_Click()
Dim sCrit As String
   
'-- by Alexandre Fim ------------------------------------------------------------------------------------------
   
    '-- verifica se existem registros para impressão
    If Me.Lst_Estoque.ListCount = 0 Then
        MsgBox "O sistema não localizou registos com o filtro informado.", vbExclamation, "Aviso"
        Exit Sub
    End If
   
    '-- variavel atribuida com o parâmetro informado
    sCrit = " Id_DescSistema LIKE '*" & Trim(Me.Txt_Pesquisa) & "*'"
   
    'sCrit2 = " Id_refCadastro LIKE '*" & Trim(Me.Txt_Pesquisa) & "*'"
    '-- fecha o form
    DoCmd.Close acForm, Me.Name
   
    '-- Abre o relatório com o parametro de filtro
    DoCmd.OpenReport "Rel_ContEstoque", acViewPreview, , sCrit