[Resolvido]Relatório com consulta referencia cruzada - Colunas

Amigos preciso muito de vossa ajuda.
Tenho uma consulta referencia cruzada que esta assim
Linha = Nome
Titulo de Coluna = Historico
Linha - Valor Receita
Valor = ValorDespesa
Expressão = Saldo: Soma(nz([ValorREceita])-nz([ValorDespesa]))

O que acontece, as colunas variam conforme o histórico de lançamentos, hora pode ter 3 colunas hora 10 colunas, e asim por diante.

Como fazer um relatório que coloque as colunas conforme a consulta referencia cruzada?

Geralmente o relatório não exibe campos que não contenham dados. Já verificou se isso serve?

Veja, não é isso, o problema é assim, derepente a consulta rf cruzada terá 10 colunas, derepente 15, entende?
Como fazer um relatório dessa forma?

Consegui alguma coisa com o código ao abrir relatório

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
On Error GoTo Trata_Erro
Dim rs As DAO.Recordset, I As Integer, Ultimo As Integer
Dim Conta As Integer
Set rs = DBEngine(0)(0).OpenRecordset(Me.RecordSource, dbOpenSnapshot)
With rs
Conta = .Fields.count - 1
'Este relatório só comporta 21 controles (0-20)
'por questão de espaço.
If Conta > 20 Then
Ultimo = 20
Else
Ultimo = Conta
End If

For I = 0 To Ultimo
Me("txt" & I).ControlSource = .Fields(I).Name
Me("txt" & I).Visible = True
Me("lbl" & I).Visible = True
Next I
End With

Sai:
'Libera recursos do sistema.
Set rs = Nothing
Exit Sub

Trata_Erro:
MsgBox "Erro nº " & err.Number & "@@ " & err.Description, _
vbExclamation, "Erro!"
Resume Sai

End Sub


Quase resolve meu problema, mas como fazer para que meus labels contenham o nome do campo, exemplo

Campo = Agua, meu lbl0 deveria ter Agua como legenda.

Teria que ter uma forma de preencher cada label(Rotulo) conforme o campo

Consegui assim

DoCmd.Maximize
On Error GoTo Trata_Erro
Dim rs As DAO.Recordset, I As Integer, Ultimo As Integer
Dim Conta As Integer
Set rs = DBEngine(0)(0).OpenRecordset(Me.RecordSource, dbOpenSnapshot)
With rs
Conta = .Fields.count - 1
'Este relatório só comporta 21 controles (0-20)
'por questão de espaço.
If Conta > 20 Then
Ultimo = 20
Else
Ultimo = Conta
End If

For I = 0 To Ultimo
Me("txt" & I).ControlSource = .Fields(I).Name
Me("txt" & I).Visible = True
Me("lbl" & I).Visible = True
Me("lbl" & I).Caption = .Fields(I).Name Next I
End With

Sai:
'Libera recursos do sistema.
Set rs = Nothing
Exit Sub

Trata_Erro:
MsgBox "Erro nº " & err.Number & "@@ " & err.Description, _
vbExclamation, "Erro!"
Resume Sai

Consegui.

Resolvido

Bom dia, Gilberto. Como está?

Teria um BD como exemplo, após 12 anos de sua postagem, estou com a mesma dificuldade.
Obrigado