[Resolvido]Ordenar coluna referência cruzada

Olá, tenho um relatório com consulta ref. cruzada que montei usando um exemplo aqui do repositório do forum. Entretanto gostaria de saber se tem como exibir a coluna de ValorTotal no final de cada linha. Mesmo colocando a coluna de ValorTotal no final da consulta, a totalização fica antes das colunas, como abaixo:

Dt.Pedido        DesCategoria   codProduto   NomeProduto          ValorTotal       Abrigo    Albergue Casa Lar   Cras BS    Cras GV
23/04/2021               Perecíveis               1        Leite integral (litro)      804             252         168           300         60          24

Gostaria que ficasse assim:

Dt.Pedido        DesCategoria codProduto   NomeProduto              Abrigo      Albergue    Casa Lar   Cras BS   Cras GV    Valor Total
23/04/2021              Perecíveis               1       Leite integral (litro)       252           168           300           60           24           804

É isso ai, valeu.

ALAN

Bom dia.

Sem ver, mas pelo que disse faça o seguinte.

Abra essa consulta no modo estrutura e mova o campo desejado para o fim dela.

Falo e escrevo sem ver a estrutura da mesma.

Bom dia Silvio, como já havia comentado na abertura do tópico, mesmo colocando o campo no final da consulta, ao abrir o relatório fica antes das colunas de valores. Já tentei copiar o valor para um txt diferente no final nomeado como txtValorTotal, mas dá erro. Veja como é carregado o meu relatório. São labels de lbl0 à lbl13 e no Detalhe txt0 à txt13.

A Consulta:

codProduto
ConsultaTotalizacao
Agrupar por
Linha

NomeProduto
ConsultaTotalizacao
Agrupar por
Linha
Crescente

NomeSetor
ConsultaTotalizacao
Agrupar por
Título de Coluna

Total
ConsultaTotalizacao
Soma
Valor

ValorTotal: Total
ConsultaTotalizacao
Soma
Linha

No 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
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
End Sub

ALAN

Favor...manda a tabela e as consultas envolvidas para analisarmos melhor o teu caso.

Caro Silvio, resolvi por aqui fazendo uma adaptação não muito profissional, mas por enquanto serve para dar continuidade no sistema.
Foi o seguinte: percebi que a Consulta Ref. Cruzada sempre carrega o campo ValorTotal no lbl4 e txt4 respectivamente.
Então no final da linha, no Cabeçalho adicionei um lbl nome "ValorTotal" e em Detalhe adicionei um txtValorTotal e na Propriedade -> Dados ->Fonte do Controle digitei =[txt4] e lbl4 e txt4 deixei Oculto.
E assim fica com o layout que eu esperava. Obrigado pela atenção Silvio, até a próxima...

Alan