[Resolvido]Exportar dados para excel com objetivo de ter uma tabela horizontal

Boa tarde

Tenho uma dúvida que pode ser existencial. Tenho uma BD com as seguintes relações:

tb_turma 1 para muitos tb_aluno 1 para muitos tb_aplicações

O meu problema é criar um relatório com a conjugação da tb_alunos e tb_aplicações, mas que me coloque 1 aluno por folha e que me devolva na mesma página as várias aplicações do mesmo.

Um aluno pode ter 5 a 20 aplicações.

Um outro problema é: gostava de extrai os dados e exportar os mesmos, de forma a ter uma tabela horizontal no excel.
Tentei com uma pivot e resultou, mas quando extraio para o excel os dados de texto trasforma em contagem e não é isso que pretendo.

O que pretendo:
Aplicação geral Aplicação seletiva1
Nome Completo Aplicação 1 nota Aplicação 2 Nota 2
Nome1
Nome2
Nome3


Agradeço desde já a vossa disponibilidade em ajudar.

Muito obrigado

Com um simples Inner Join você poderia resolver seu problema de aparecer um aluno e todas as suas aplicações. Creio que você criou uma chave estrangeira do aluno na tabela de aplicações certo?

Em relação a parte de exportar, após você criar uma consulta dessa descrita acima, pode clicar com o botão direito na consulta e mandar exportar em XLS, CSV e muitas outras opções.
Caso você queira cruzar os dados pode fazer a consulta de referência cruzada no próprio Access sem precisar fazer a pivot no Excel.


Flw...

Não consigo, que me devolva o pretendido .
Para ajudar, envio a replica da BD.

Pretendo numa só linha obter:
Turma;Aluno1;BI;NIF;App1;User;Pass;App2;User;Pass;App3;User;Pass; etc (com todas as app que estão preenchidas)

Podem ajudar pf.

O meu objectivo é exportar o ficheiro (referência cruzada).
Mas eu estou a tratar com texto e do pouco que sei, não consigo fazer referência cruzada, com dados em texto.
O formato convencionado é o excel como forma de transmitir os resultados por turma e o PDF é por aluno com as diversas aplicações de cada um.

Tenho mais duas BD's idênticas mas com semelhanças no mesmo problema.

Eu já o faço em excel, mas gostava de armazenar num único deposito e estou a gostar mesmo muito das potencialidades do access. No entanto, este obstáculo está a desvanecer a utilização do access .

Ajudem-me pf.

Olá,

Crie a função abaixo em um módulo:

Código:

Public Function apps_aluno(ID As Integer) As String

Dim apps As String
Dim rs As Recordset

apps = ""

Set rs = CurrentDb.OpenRecordset("Select * From tb_app Where [aluno] = " & ID)
Do While Not rs.EOF
    apps = apps & rs!nome_aplicação & ";" & rs!user_aplicação & ";" & rs!pass_aplicação & ";"
    rs.MoveNext
Loop
rs.Close

If apps <> "" Then apps = Left$(apps, Len(apps) - 1)
apps_aluno = apps

End Function

A consulta abaixo deve apresentar o resultado esperado:

SELECT [nome_turma] & ";" & [nome_aluno] & ";" & [BI] & ";" & [NIF] & ";" & apps_aluno([ID_alunos]) AS linha FROM (tb_turma INNER JOIN tb_alunos ON tb_turma.ID_turma = tb_alunos.turma) INNER JOIN tb_app ON tb_alunos.ID_alunos = tb_app.aluno GROUP BY [nome_turma] & ";" & [nome_aluno] & ";" & [BI] & ";" & [NIF] & ";" & apps_aluno([ID_alunos]), tb_alunos.nome_aluno ORDER BY tb_alunos.nome_aluno

Olá Cláudio,

Desde já, agradeço a sua disponibilidade em ajudar-me.
Mas penso que não consegui expor o meu problema da melhor forma.

Eu queria automatizar processos e armazenar num único sitio os dados.

Envio ficheiro final em excel e uma simulação em PDF.

O meu muito obrigado em partilhar conhecimento.

Boas amigos,

Como ainda não consegui resolver o meu problema, tento mais uma vez.

Sinto-me num beco sem saída.

Agradeço e peço desculpas por estar insistindo.

Boas pessoal,

Consegui resolver parcialmente o meu problema. Criei duas consultas cruzadas e com o resultado de ambas fiz uma de agregação.
Obtive o resultado pretendido. Não consegui com um modulo ou com uma só consulta ... mas para os grandes obstáculos por vezes existem simples processos.
Partilho o resultado e dou como resolvido.

Conhecimento partilhado .

Grato