Access... relatório com shape e append

[castelo]

Ola Amigos.

Estou lutando para fazer um relatório no DataReport do VB6 funcionar como quero, porém não vai...

o código é o seguinte:

Set connSIGA2 = New Connection
With connSIGA2
.CursorLocation = adUseClient
.Open "PROVIDER=MSDataShape;Data PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db\escola.mdb" & ";"
End With

Set rsSIGA = New Recordset
Dim strSQL As String

  'define o comando SHAPE
  ' TESTE
  strSQL = "SHAPE { "
  strSQL = strSQL & "SELECT tb_matricula.*, "
  strSQL = strSQL & " tb_matricula.numero as NumeroAluno,"
  strSQL = strSQL & " tb_aluno.nome_aluno as NomeAluno,"
  strSQL = strSQL & " tb_turma.turma as NomeTurma, "
  strSQL = strSQL & " tb_turma.turno as TurmaTurno, "
  strSQL = strSQL & " tb_serie.serie as NomeSerie, "
  strSQL = strSQL & " tb_graus.descricao as NomeGrau "
  strSQL = strSQL & " FROM"
  strSQL = strSQL & " ((((tb_matricula INNER JOIN tb_aluno ON tb_matricula.id_aluno = tb_aluno.id_aluno)"
  strSQL = strSQL & " INNER JOIN tb_turma ON tb_matricula.id_turma = tb_turma.id_turma)"
  strSQL = strSQL & " INNER JOIN tb_serie ON tb_turma.serie = tb_serie.id_serie) "
  strSQL = strSQL & " INNER JOIN tb_graus ON tb_serie.grau = tb_graus.id_grau) "
  strSQL = strSQL & " WHERE tb_matricula.id_turma = " & turma.ItemData(turma.ListIndex)
  strSQL = strSQL & " ORDER BY tb_turma.turma asc, tb_matricula.numero asc "
  strSQL = strSQL & "} AS Turmas "
  strSQL = strSQL & "APPEND ({ "
  strSQL = strSQL & "SELECT tb_notas.*, tb_disciplina.*  From (tb_notas "
  strSQL = strSQL & "INNER JOIN tb_disciplina ON tb_notas.id_disciplina = tb_disciplina.id_disciplina) "

''  strSQL = strSQL & "SELECT tb_disciplina.*, tb_notas.*  From (tb_notas "
''  strSQL = strSQL & "right JOIN tb_disciplina ON tb_notas.id_disciplina = tb_disciplina.id_disciplina) "
''  'strSQL = strSQL & "INNER JOIN tb_aluno ON tb_notas.id_aluno = tb_aluno.id_aluno) "
  
  strSQL = strSQL & "} AS Alunos "
''  strSQL = strSQL & "RELATE 'id_serie' TO 'serie' "
  strSQL = strSQL & "RELATE 'id_aluno' TO 'id_aluno' "
  
  strSQL = strSQL & ") AS Alunos "
  'strSQL = strSQL & ")"
  rsSIGA.Open strSQL, connSIGA2, adOpenForwardOnly

    Set boletimG.DataSource = rsSIGA
    boletimG.Show vbModal

É um boletim escolar.

O comando PAI seleciona os dados que montam o cabeçalho do relatório, o comando FILHO recupera as notas lançadas na tabela tb_notas.

O relacionamento entre os dois comando pode variar... de SERIE para ID_ALUNO mas em menhum dos casos deu certo.

Se eu coloco por série o relacionamento, ele recupera todas as disciplinas que preciso listar... mas não relaciona as notas ao ALUNO do boletim.

Se coloco por ID_ALUNO ele só carrega as disciplinas que tem notas lançadas, até seria o que eu preciso... mas quero que ele lista até mesmo aquelas que não tem nota...

Alguma idéia!?

Posso enviar um exemplo por email... aguardo.

email: castelo.jelb@hotmail.com