[Resolvido]Concatenar linhas de uma mesma tabela.

Prezados,

Alguém como posso concatenar linas de uma mesma tabela?

DE

Campo1

Contas01
Contas02
Contas03

PARA

Contas01|Contas02|Contas03

Grato pelo apoio.

Olá! Você pode instanciar a tabela como um Recordset e percorrer as linhas com um Loop. Se for para colocar os dados em um campo do formulário, seria algo assim:

Dim rs As Recordset                                              ' 1
Set rs = CurrentDb.OpenRecordset("NomeDaTabela")                 ' 2
 
Do While Not rs.EOF                                              ' 3
    If IsNull(Me.NomeDoCampo) Or Me.NomeDoCampo = "" Then        ' 4
Me.NomeDoCampo = rs!NomeCampoDaTabela                            ' 5
Else                                                             ' 6
    Me.NomeDoCampo = Me.NomeDoCampo & "|" & rs!NomeCampoDaTabela ' 7
End If                                                           ' 8

rs.Close                                                         ' 9
Set rs = Nothing                                                 ' 10

1 - Criamos um objeto do tipo Recordset, ou seja, um conjunto de registros, a representação de uma tabela;
2 - Instanciamos o objeto criado, o qual demos o nome de rs, passando o nome da tabela que ele representará;
3 - Faça enquanto não chegar o fim dos registros;
4 - Se o campo estiver vazio então;
5 - O campo receberá o dado do campo da primeira linha da tabela;
6 - Caso contrário;
7 - Adicionará um pipe e o dado da próxima linha da tabela;
8 - Fim da adição de dados;
9 - Se abrimos a tabela para pegar os dados, precisamos fechá-la;
10 - Se criamos um objeto, precisamos excluí-lo da memória.

Muito obrigado pelo suporte e orientação.