[Resolvido]Transportar seleção múltipla em caixa de listagem para critério em uma consulta ..

Olá pessoa, quero executar uma consulta baseado nos valores que eu clicar numa caixa de listagem...
Exemplo:
Tenho uma caixa de listagem onde aparecem os clientes cadastrados...
Gostaria que ao selecionar um cliente e clicar num botão aparecesse somente os registros desse cliente. Ou se ainda eu selecionasse dois clientes e clicasse num botão aparecesse somente os registros desses dois clientes.

Alguém pode ajudar ??
Desde já agradeço ...

Dias atrás, coisa de uns 15 dias no máximo, postei algo assim para filtragem em relatório. Dê uma pesquisada que você deve encontrar. Veja se consegue adaptar.

Oi Criquio.
Já pesquisei e não encontrei nada que funcionasse como desejo...
Tem como me passar esse link ???
Encontrei alguns que fazem direto da tabela.. Gostaria de fazer pela consulta... Pois tem intervalo de datas e tal..
Tem como ajudar ?

Achei um código seu, tentei mas não consegui Criquio. Vou tentar explicar abaixo como estou fazendo..
Desde já te agradeço pela ajuda...
Tenho uma caixa de listagem que é composta pelos campo CodColaborador e NomeColaborador.
Estou usando esse código do Mestre AVelino no botão de visualizar:

Dim filtro As String
Dim Sel As Variant
Dim j As Boolean

filtro = "in("
For Each Sel In Me!listacolaboradores01.ItemsSelected
filtro = filtro & Me!listacolaboradores01.Column(0, Sel) & ","
j = True
Next
filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
filtro = "codcolaborador " & filtro

If j = False Then
MsgBox "Selecione um ou mais colaboradores...", vbInformation, "Aviso"
Me!listacolaboradores01.SetFocus
Me!listacolaboradores01 = 0
Else
DoCmd.OpenReport "rltColaborador", acViewPreview, , filtro
End If

No entanto, quando executo o acces me pede para inserir o valor justamente do CodColaborador.
Na minha consulta que é a fonte de dados para o relatório no campo CodColaborador tenho o seguinte critério:
=[Formulários].[frmParametrosRelatorios].[listacolaboradores01]
Acho que ele não está conseguindo passar o valor para o critério da consulta.
O que estou fazendo de errado?
Alguém pode ajudar ?

Está difícil encontrar o tópico no meio da imensidão, mas tenho o exemplo aqui e o código é mais ou menos o seguinte:

Código:

Dim Filtro As String, N As Integer

Filtro = "funcionario='"

For N = 0 To Me.lstFuncionarios.ListCount - 1
    If Me.lstFuncionarios.Selected(N) = True Then
        If Filtro = "funcionario='" Then
            Filtro = Filtro & Me.lstFuncionarios.Column(0, N) & "'"
        Else
            Filtro = Filtro & " Or funcionario='" & Me.lstFuncionarios.Column(0, N) & "'"
        End If
    End If
Next

DoCmd.OpenReport "rel_moinho", acPreview, , Filtro

Foi esse mesmo que encontrei..
E ele continua pedindo o valor do quando executo. Parece que não estou conseguindo transportar o critério para a consulta e aí ele não executa..
Coloquei como fiz na mensagem acima...
O que estou fazendo de errado ????

Olá Criquio e pessoal.
Vou deixar aqui como consegui resolver. Alguém pode ter a mesma dúvida.
Consegui resolver a situação da seguinte forma:
Retirei o critério do campo CodColaborador da consulta.. Deixei apenas o critério do intervalo de datas..
No formulário que chama o relatório coloquei o seguinte código(num botão) do Mestre Avelino que também me deu algumas dicas para resolver essa situação:
Parece estar funcionando normalmente. Se alguém tiver mais alguma dica ou correção.. Desde já agradeço..

Dim filtro As Variant
Dim j As Boolean

If Len(Me.DataInicial & vbNullString) = 0 Or Len(Me.DataFinal & vbNullString) = 0 Then
MsgBox "Por Favor, introduza as datas.", _
vbInformation, "Sem Datas..."
Me.DataInicial.SetFocus
ElseIf (Me.DataInicial > Me.DataFinal) Then
MsgBox "Data Inicial não pode ser maior que a data final. Por favor, corriga as datas.", vbInformation, "Datas Incorretas"
Me.DataInicial.SetFocus
Me.DataInicial = Null
Me.DataFinal = Null
Exit Sub
Else
filtro = "in("
For Each Sel In Me!listacolaboradores01.ItemsSelected
filtro = filtro & Me!listacolaboradores01.Column(0, Sel) & ","
j = True
Next
filtro = Mid(filtro, 1, (Len(filtro) - 1)) & ")"
filtro = "CodColaboradorMov " & filtro

If j = False Then
MsgBox "Selecione um ou mais colaboradores...", vbInformation, "Aviso"
Me!listacolaboradores01.SetFocus
Me!listacolaboradores01 = 0
Else
DoCmd.OpenReport "rltProdFratifProporc", acViewPreview, , filtro
End If
End If