[Resolvido]Mesmo rowsource de uma listbox

tenho uma listbox com o nome dos vendedores e um relatório agrupado pela filial, e preciso que nesse relatório só mostre os vendedores que estão na listbox

que faço?

Tente no evento "Ao abrir" do relatório:

Me.RecordSource = Forms!NomeDoFormulário!NomeDaListbox.RowSource

Na verdade, eu ainda botei o título errado, tentei assim.

É que na ListBox só tem o nome dos vendedores. E no relatório mostra os vendedores agrupado pela empresa, quero que só mostre aqueles vendedores que estão na listbox no relatório.

Você pode fazer um loop pelas linhas da listbox e ir acrescentando os nomes dela em um For ... Next e depois passar todos os campos no Source, mais ou menos assim:

Código:

Dim sSQL As String, N As Integer

sSQL = "SELECT * FROM NomeDaTabela WHERE NomeDoCampo='"

For N = 0 To Forms!NomeDoForm!NomeDaList.ListCount - 1
    If N <> Forms!NomeDoForm!NomeDaList.ListCount - 1 Then
        sSQL = sSQL & Forms!NomeDoForm!NomeDaListbox.Column(1, N) & " Or & "NomeDoCampo=" & ""
    Else
        sSQL = sSQL & Forms!NomeDoForm!NomeDaListbox.Column(1, N) & """
    End If
Next

Me.RecordSource = sSQL

Agradeço-lhe, Criquio.

Mas nao sei como seria implantando no relatório.

Vou deixar o database caso possa dar uma olhada.

Tenho um espaço para ir digitando o texto e ele vai filtrando, e no relatório só quero que mostre os vendedores agrupados pela EMPRESA, mas que só mostre os que estão na listbox.

Não seria o caso de aplicar o mesmo filtro da listbox no relatório sem ser exatamente buscando esses dados na listbox?

Mas se eu colocar o rowsource igualzinho ao do listbox ele só vai trazer o nome dos clientes, e não os dados da toda no relatório.

Me ajuda?

Cadê o relatório no exemplo? Monte o relatório mesmo sem a filtragem e anexe novamente aqui.

Aguardamos

Aí está o relatório exemplo agrupado pela empresa, só mostra o nome do cliente e o valor de sua compra.

Só deve mostrar os que tiverem filtrados na listbox.

Funciona da forma que passei acima:

Código:

Dim sSQL As String, N As Integer

sSQL = "SELECT * FROM Relatório WHERE Nome='"

For N = 0 To Forms!Vendedor!lista.ListCount - 1
    If N <> Forms!Vendedor!lista.ListCount - 1 Then
        sSQL = sSQL & Forms!Vendedor!lista.Column(0, N) & "' Or Nome = '"
    Else
        sSQL = sSQL & Forms!Vendedor!lista.Column(0, N) & "' ORDER BY Nome"
    End If
Next

Me.RecordSource = sSQL

Ou passando a mesma fonte da listbox conforme comentei. Isso na linha "Fonte de registro" da aba "Dados" nas propriedades do relatório:

SELECT * FROM Vendedor WHERE Nome LIKE '" & Forms!Vendedor!Texto & "*' ORDER BY Nome;

Funcionou mesmo!

Agradeço-lhe, Criquio.

Oi Criquio, marquei resolvido porque só tinha visto o do código do VBA, depois vi o segundo código e ví que já bota o filtro com o valor do texto, mas por exemplo, pretendo botar vários outros filtros no formulário, como o das iniciais, selecionar um cargo e outras coisas mais.

Como fazer isso?

Tem como fazer o que disse acima mudando a fonte de controle como você disse?

Explique melhor.

Você falou que também tinha essa forma:

SELECT * FROM Vendedor WHERE Nome LIKE '" & Forms!Vendedor!Texto & "*' ORDER BY Nome;


Porém, essa só vai pegar a filtragem se tiver algo na textbox e pretendo adicionar outros tipos de filtros.

Por exemplo, farei um filtro com botões para filtrar pela inicial, colocarei botões de A a Z, colocarei filtros para selecionar a empresa.

Ou seja, tem que ser o critério direto do que tiver na listbox.

Tem como fazer a partir do

SELECT * FROM Vendedor WHERE Nome LIKE '" & Forms!Vendedor!Texto & "*' ORDER BY Nome;

Mudando o critério para um que traga todos que estão na listbox?

Acho que não entendi bem ainda. Teoricamente, essa linha está utilizando exatamente o que a listbox está tambem. Então, vai trazer o que estiver na listbox.

Vou tentar aprender o código do VBA mesmo, retorno qualquer coisa.

Agradeço-lhe pela ajuda, Criquio.