[Resolvido]Não reconhece Field Control Source em relatório com consulta referência cruzada

Oi, tenho uma consulta de referência cruzada, nas linhas retornam siglas, colunas são mês/ano (máximo 12) e valores é a soma da quantidade produzida. Obs.: uso alias (Linha, Data e Quantidade, respectivamente).

https://i.servimg.com/u/f81/20/45/24/49/consul12.jpg

Criei relatório com 13 labels (lbl0, lbl1, lbl2, ..., lbl12) e respectivas caixas de textos (txt0, txt1, txt2, ..., txt12).

https://i.servimg.com/u/f81/20/45/24/49/relatz12.jpg

Consigo definir o Caption, mas não mostra os resultados. Parece algum problema ao definir Control Source. Alguém sabe me dizer?

https://i.servimg.com/u/f81/20/45/24/49/inspez10.jpg

Código:

Private Sub Report_Load()

    'Parâmetro
    Dim meses As Integer
    meses = 6
    
    'Declaração variáveis
    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim colunas As Integer
    Dim I As Integer
        
    Set dbs = CurrentDb
    
    'Produção mensal por linha dos últimos N meses
    Set qdf = dbs.QueryDefs("slcProducaoPorLinhaMensal")
    qdf.Parameters("meses").Value = meses
    Set rst = qdf.OpenRecordset(dbOpenDynaset)
    
    With rst
        For I = 0 To .Fields.Count - 1
            Me("txt" & I).ControlSource = .Fields(I).Name
            Me("txt" & I).Visible = True
            Me("lbl" & I).Caption = .Fields(I).Name
            Me("lbl" & I).Visible = True
        Next I
    End With
    
    rst.Close
    Set rst = Nothing
    
    qdf.Close
    Set qdf = Nothing
    
    Set dbs = Nothing
        
End Sub

Olá Júlia,

Somente com imagens fica mais dificil de ajudar.
Por gentileza, envie uma cópia do bd, somente objetos (tabelas/consultas/relatorios e etc.) envolvidos na questão, para análise e solução.

Grato.

Att,

Alexandre Fim

Segue anexo. Desde já agradeço!

Julia, boa noite

Aproveitei os dados da consulta referencia cruzada para gravar os valores em uma tabela, e também gerar o relatório através dela.

Ficou assim:


Ao clicar no botão "Visualizar", o sistema abre o relatorio:



Segue versão do sistema com os devidos ajustes.

Espero ter ajudado.

Att,

Alexandre Fim

Agradeço o retorno. Da forma sugerida os dados ficam foram de ordem, se colocar 12 meses, por exemplo, apresentaria primeiro janeiro à março de 2021, depois abril a dezembro de 2022, todos estão sendo colocados no ano corrente também, 2022.

Consegui fazer os campos reconhecerem o Control Source definindo no relatório.
Me.RecordSource = "slcProducaoPorLinhaMensal"

Só tive que remover o filtro dinâmico dos meses, deixar fixo 6 meses, por exemplo, pois ficava pedindo na tela para o usuário.

Código:

Private Sub Report_Load()
    
    'Declaração variáveis
    Dim dbs As DAO.Database
    Dim qdf As DAO.QueryDef
    Dim rst As DAO.Recordset
    Dim rstReport As DAO.Recordset
    Dim colunas As Integer
    Dim I As Integer
        
    Set dbs = CurrentDb
        
    'Produção mensal por linha dos últimos 6 meses
    Set qdf = dbs.QueryDefs("slcProducaoPorLinhaMensal")
    Set rst = qdf.OpenRecordset(dbOpenDynaset)
    
    With rst
        For I = 0 To .Fields.Count - 1
            Me("txt" & I).ControlSource = .Fields(I).Name
            Me("txt" & I).Visible = True
            Me("lbl" & I).Caption = .Fields(I).Name
            Me("lbl" & I).Visible = True
        Next I
    End With
    
    Me.RecordSource = "slcProducaoPorLinhaMensal"
    
    rst.Close
    Set rst = Nothing
    
    qdf.Close
    Set qdf = Nothing
    
    Set dbs = Nothing
        
End Sub