MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Ordenar coluna referência cruzada

    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 25/07/2017

    [Resolvido]Ordenar coluna referência cruzada Empty [Resolvido]Ordenar coluna referência cruzada

    Mensagem  alantb 26/4/2021, 13:09

    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5080
    Registrado : 20/04/2011

    [Resolvido]Ordenar coluna referência cruzada Empty Re: [Resolvido]Ordenar coluna referência cruzada

    Mensagem  Silvio 26/4/2021, 13:42

    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.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Assis gosta desta mensagem

    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 25/07/2017

    [Resolvido]Ordenar coluna referência cruzada Empty Re: [Resolvido]Ordenar coluna referência cruzada

    Mensagem  alantb 26/4/2021, 15:16

    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
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5080
    Registrado : 20/04/2011

    [Resolvido]Ordenar coluna referência cruzada Empty Re: [Resolvido]Ordenar coluna referência cruzada

    Mensagem  Silvio 26/4/2021, 18:03

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


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    alantb
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 25/07/2017

    [Resolvido]Ordenar coluna referência cruzada Empty Re: [Resolvido]Ordenar coluna referência cruzada

    Mensagem  alantb 26/4/2021, 18:49

    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

    Conteúdo patrocinado


    [Resolvido]Ordenar coluna referência cruzada Empty Re: [Resolvido]Ordenar coluna referência cruzada

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/6/2024, 03:55