Dispor em linhas os dados de uma coluna

Olá! Estou replicando o tópico e a dúvida de um tópico antigo, mas não estão abrindo os tutoriais...
https://www.maximoaccess.com/t7176-resolvidodispor-em-linhas-os-dados-de-uma-coluna


Antes de expor meu problema, gostaria de registrar que tentei fazer buscas no forum, mas face a minha dificuldade até em expor o problema, acabei por não obter êxito. Peço desculpas também pelo Título do Tópico, não sei se é adequado ao tema. Mas vamos lá:

Tenho um relatório de campos [ID], [Data], [Pedidos]. Ele é agrupado por [Data], e para cada [data] a diversos [Pedidos]. o Formato dele é assim:

10/04/2012
1245
1246
1458
1257
1245
11/04/2012
1254
1256
1257

Gostaria que ficasse assim:

10/04/2012 - 1245,1246,1458,1257,1245
11/04/2012 - 1254,1256,1257

É possível?

Obrigado

Talvez aqui

dropbox.com/s/rwh6ian1zj4vasc/TabelaVerticalNaHorizontal.txt?dl=1

Sou amador com o Access e com VBA... mas pelo que eu vi na outra postagem, a solução está no uso do comando MoveLayout...

Ok! Terça estarei no trabalho com o banco de dados e poderei exemplificar melhor!

Desculpe a demora!


Segue em anexo um exemplo da minha necessidade. Fiz de forma bem simples e rápida, pois o conteúdo do banco de dados original é sigiloso.

As dúvidas são:

1) Ao clicar no "Impressao Relatorio" ele solicita duas vezes o mesmo critério (porque o relatorio e o subrelatorio estão vinculados à uma mesma consulta), como posso contornar isso?

2) O textbox "nome_Produto" precisa dispôr lado a lado, assim: "Frutas: Maçã, Pêra, Uva, Banana, Kiwi, Laranja, Arroz. (...) 'Desta forma' ".





https://drive.google.com/file/d/1yN7JA5Jich4cTKtMEg_agna7OIMIwyC5/view?usp=sharing

Olá Amigo,

Coloque esse código em uma consulta:

TRANSFORM First(Pedidos) AS FirstNome
SELECT DataPedido AS DtPedido
FROM (SELECT t1.DataPedido, t1.Pedidos, 'Pedido' & " " & Format(COUNT(*),"00") AS PedidoData FROM TbPedidos AS t1 INNER JOIN TbPedidos AS t2 ON (t1.DataPedido=t2.DataPedido) AND (t1.Pedidos>=t2.Pedidos) GROUP BY t1.DataPedido, t1.Pedidos)  AS qryColunasVertical
GROUP BY DataPedido
PIVOT PedidoData;


Nome da tabela fictícia é TbPedidos. Sua variável Data transformei em DataPedido. Palavras reservadas do Access.

Lembrando que os méritos dessas linhas são do Mestre Celso Roberto, aqui do fórum. Só adaptei.

Abraços

Com os campos da sua tabela:

Copiar / Colar

TRANSFORM First(nome_produto) AS FirstNome
SELECT tipo_produto AS TpPedido
FROM (SELECT t1.Tipo_produto, t1.nome_produto, 'nomeproduto' & " " & Format(COUNT(*),"00") AS nometipo FROM PRODUTOS AS t1 INNER JOIN PRODUTOS AS t2 ON (t1.TIPO_PRODUTO=t2.TIPO_PRODUTO) AND (t1.NOME_PRODUTO>=t2.NOME_PRODUTO) GROUP BY t1.TIPO_PRODUTO, t1.NOME_PRODUTO) AS qryColunasVertical
GROUP BY TIPO_PRODUTO
PIVOT nometipo;

Abraços