[Resolvido]Concatenar vários registros de um mesmo campo

FabioPaes escreveu:
https://www.dropbox.com/s/n716qi5mun2isj1/Banco_Botao_Tabela.zip?dl=0

Bom, deixa eu lhe explicar o que foi feito... Todos os Relatórios São iguais, a unica coisa que muda é a configuração de impressão, que um eu coloquei pra imprimir em 1 coluna(padrao), outro em 2 colunas e 3 colunas o outro.


A Grosso modo, o que é feito é pegar a Edição que ficaria normalmente uma em baixo da outra:
01
03
005
2012

e Juntada em um Unico Campo separadas po | 2012 |:
| 01 | 03 | 005 | 2012 |.

Aos comandos: Tudo é feito na seção de eventos, Ao Formatar da seção Detalhe e Rodapé dos Grupos do Relatorio.


Private Sub CabeçalhoDoGrupo0_Format(Cancel As Integer, FormatCount As Integer)
'Zera o Campo que recebera as Ediçoes Juntas:
Me.txtEdicao = "| "
End Sub

Private Sub CabeçalhoDoGrupo1_Format(Cancel As Integer, FormatCount As Integer)
'Zera o Campo que recebera as Ediçoes Juntas:
Me.txtEdicao = "| "
End Sub

Private Sub Detalhe_Format(Cancel As Integer, FormatCount As Integer)
'Junta as ediçoes e aplica a caixa de texto nao acoplada chamada de txtEdicao, que esta na seção Rodapé do Grupo Editora.
Me.txtEdicao = Me.txtEdicao & Me.[Edição] & " | "
End Sub

não funcionou como você descreve mas me deu idéia para a solução: