[Resolvido]Relatório com dados apresentados na horizontal

Alexandre,

Boa noite!

Muito obrigado pela ajuda, pois foi de extrema valia. Deu tudo certo, sim. Era exatamente o que precisava. Fiz algumas alterações, buscando os dados diretamente na tabela ao invés de trabalhar com consulta. Também, acrescentei uma condição para evitar a replicação do separador ao final da relação das datas.

Segue o resultado final:

Private Sub Report_Load()
If Me.Pedido > 0 Then 'Verifica se o valor do registro selecionado no formulário e enviado ao relatório é válido

Dim db As DAO.Database 'Criação de instrução de abertura do banco de dados
Dim rs As DAO.Recordset 'Criação de instrução de consulta
Dim strparc As String 'Criação de instrução variável

Set db = CurrentDb() 'Usa o banco de dados atual
Set rs = db.OpenRecordset("SELECT vencimento FROM pagamentos WHERE pedido = " & Me.Pedido & " GROUP BY vencimento") 'Abre a tabela pagamentos de acordo com o critério definido ao campo pedido

Do While Not rs.EOF 'Verifica se não é o fim do arquivo

separador = " | " 'Cria uma variável para determinar o separador das datas dos vencimentos
If (rs.RecordCount - 1) = rs.AbsolutePosition Then 'Condição SE para verificar se é o último registro válido
separador = " " 'Troca o valor do separador das datas dos vencimentos quanto atinge o último registro válido, a fim de não replicar mais uma barra ao final da última data
End If 'Encerra a condição SE

strparc = rs("vencimento") 'Traz as datas dos vencimentos, em conformidade com a pesquisa feita na tabela
txtParc.Value = txtParc & Format(strparc, "dd/mm/yyyy") & separador 'Transfere as datas para a caixa de texto chamada de txtParc no relatório
rs.MoveNext 'Avança os registros
Loop

rs.Close 'Encerra a consulta
db.Close 'Encerra o banco de dados
Set rs = Nothing 'Libera a memória qu havia sido reservada para a consulta

End If 'Encerra a condição SE de verificação da validade do registro enviado ao relatório pelo formulário
End Sub

Um forte abraço, bom final de semana e até logo.