[Resolvido]Como Levar os dados de uma caixa de listagem para um relatorio?

Bom dia Pessoal!

Preciso enviar este codigo que esta em uma caixa de listagem no formulario para uma outra caixa de listagem no relatorio, tem como? ao visualizar o relatorio aparece em branco.

Private Sub Comando999_Click()

DoCmd.OpenReport "Relatorio", acViewPreview, "", "", acNormal

Me.Lista22.RowSource = "SELECT PatrocinioXMeta.[Código da unidade], PatrocinioXMeta.[Nome completo da unidade], Format([Valor Aprovado],""Currency"") AS [Valor Concedido], Format([meta],""Currency"") AS Metas, Format([Valor Aprovado]/[Meta],""Percent"") AS Atingimento, Format([Meta]-[Valor Aprovado],""Currency"") AS Diferença " & vbCrLf & _
"FROM PatrocinioXMeta " & vbCrLf & _
"WHERE (((PatrocinioXMeta.[Código da unidade]) Like [forms]![pesquisa]![ag] & ""*""));"

end sub

Olá lourival,

Você pode ser mais claro quanto ao que deseja? Você pretende gerar um relatório a partir de items selecionados na caixa de listagem?

Ola, na caixa de listagem do formulario tem este codigo aparecendo as informações de acordo com um botão que aciono, até ai tudo bem!, o problema é que preciso passar estas mesmas informações para outra caixa de listagem em um relatorio.

Olá lourival,

Você pode sim transferir items de uma caixa de listagem para outra caixa de listagem em um mesmo formulário, mas para um relatório??? Posta o bd para analisar melhor o que vc deseja.

Vou fechar o topico, pois achei outra alternativa, onde coloquei a caixa de listagem vinculada a uma consulta sem usar o vba

agradeço pessoal