[Resolvido]Relatório filtrado a partir de uma ListBox (Lista de valores)

Anexei um BD para demonstrar o que preciso:

No formulário "CriarLista" tenho uma listbox com todos clientes cadastrados. Ao selecionar um cliente e clicar em "ADICIONAR >" ele vai criando uma lista do lado direito.
O problema é que para conseguir transferir de uma listbox para a outra, precisei definir a listbox Lista como "Lista de valores". Seria possível clicar no botão "Filtrar relatório" e abrir o relatório filtrado com os itens da Listbox Lista (LstLista)?

Avelino, daria para utilizar seu exemplo para uma listbox com o "Tipo de origem da linha: Lista de valores"?
Teria como olhar o BD anexo para dizer se teu exemplo funcionaria no meu caso?

Marcos

No Botão "Filtrar Relatório" ao fazer click

Dim i As Integer
Dim strFiltro As String
strFiltro = "in("
For i = 0 To Me!LstClientes.ListCount - 1
If Me!LstLista.Selected(i) = False Then
strFiltro = strFiltro & "'" & Me!LstLista.Column(0, i) & "',"
End If
Next
strFiltro = Mid(strFiltro, 1, (Len(strFiltro) - 1)) & ")"
strFiltro = "Cliente " & strFiltro

DoCmd.OpenReport "ListaClientes", acViewPreview, , strFiltro

Assis, fez exatamente o que precisava nesse exemplo anexado. No entanto, achei que se resolvesse nesse exemplo, eu conseguiria implementar no BD que estou desenvolvendo (que é maior e infelizmente não pude estar anexando).

Neste exemplo anexo, o relatório é acoplado.
Já no BD que estou desenvolvendo e iria implementar, possuo 1 relatório principal desacoplado e, dentro deste, um sub-relatório acoplado. Tive que dividir o relatório desta forma para poder utilizar o cabeçalho ocupando toda largura da folha e o sub-relatório em 2 colunas.

O que acontece é que o botão "Filtrar relatório" deveria antes de abrir o relatório principal, pedir para refazer a consulta.

Nesse primeiro exemplo era: Abra o relatório com os itens da Lista filtrado.
O que preciso: Refaça a consulta com os itens da Lista e abra o relatório principal.


Espero que tenha entendido e possa me ajudar a fazer as alterações necessárias.
Em anexo uma modificação...

Marcos

Veja e serve fiz algumas alterações.

Para marcar um cliente dá um click no nome, para desmarcar volta a dar um click.
Tem dois formulário:
o seu e o que eu fiz, escolha

Ficou bacana clicar e transferir para a Lista. Mas no meu caso, não poderei utilizar desta forma, pois ao clicar na linha ele me abre o registro do cliente.

Agora, o outro modo ficou perfeito. Só precisa me dizer como fez para o cabeçalho ocupar o espaço de duas colunas. Cheguei até criar um tópico para resolver isto, tinha resolvido utilizando um relatório principal para o cabeçalho e subrelatorio para os registros serem exibidos em 2 colunas...

Marcos
Ponha uma no Click e outra no DuploClick

Com o relatorio aberto click com o mouse do lado direito, depois configurar pagina e na aba colunas coloco 2

Então Assis...

Eu já quebrei a cabeça com isso de colunas. Antes eu definia a seção detalhe com 2 colunas e o cabeçalho ficava dividido também em 2 colunas, então não podia usar a largura total da folha para o cabeçalho. Cheguei até criar um tópico para isso, ninguém me alertou que eu quem estava me precipitando, achei que realmente era um problema. Inclusive, a idéia do relatório com subrelatório foi dada pelo Avelino.

O problema agora é ter que alterar todos os relatórios com subrelatório.
Seria muito difícil fazer o botão "Filtrar relatório" refazer a consulta do subrelatório e pedir para abrir o relatório principal?

Antes era assim que atuava este botão, com o código passado pelo Avelino:

Private Sub BtnFiltrar2_Click()
Dim varItm As Variant
Dim ss As String
Dim strSql As String
Dim qry As QueryDef

  ss = "-33"
  For Each varItm In Me.LstClientes2.ItemsSelected
      ss = ss & ", " & Me.LstClientes2.ItemData(varItm)
  Next varItm
 
  ss = "Código IN (" & ss & ")"

'---------------------------------------------------------------------------------
'Esta parte remonta a escrita da consulta gráfica, incorporando os itens selecionados.
'----------------------------------------------------------------------------------    
strSql = "SELECT * FROM tblClientes WHERE [x];"
strSql = Replace(strSql, "[x]", ss) 'anexa o filtro a escrita
Set qry = CurrentDb.QueryDefs("qryClientes2_rev") 'Passa a consulta para variável
qry.SQL = strSql 'reescreve a consulta com o filtro atual
'-------------------------------------------------------------------------

DoCmd.OpenReport "RltClientes1_rev", acViewPreview
End Sub



Eu tinha uma lista com todos os clientes, esta lista tinha seleção multipla simples. Eu selecionava todos que precisava e clicava para filtrar com o código acima. Só que o problema era ter que procurar os clientes rolando a barra de rolagem vertical. Pois pesquisando, desmarcava a seleção que já havia feito...
Daí tive esta idéia de ir filtrando na Lista de clientes, selecionando e transferindo para a Lista ao lado, para a partir desta gerar o relatório filtrado.
Só não soube como alterar este código para funcionar na nova Lista...

O que desejo, é criar uma forma de poder pesquisar os clientes e conseguir selecioná-los para gerar o relatório.
Acredito que ficaria até melhor ao invés de transferir para outra listbox, simplesmente eu mudar a listbox para subformulário contínuo e colocar checkbox.
Tentei alterar para subformulário mas tive um problema por isso optei por esse método ai. Vou criar um outro tópico e ver se consigo ajuda...

http://maximoaccess.forumeiros.com/t20663-checkbox-no-subformulario-bloqueando-ao-fazer-pesquisa#151752

Dê uma olhada, acredito que desta forma fique mais organizado para o fim que desejo...