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

    Utilizando TRANSFORM em Formulário Dividido

    MZapia
    MZapia
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 41
    Registrado : 10/10/2015

    Utilizando TRANSFORM em Formulário Dividido Empty Utilizando TRANSFORM em Formulário Dividido

    Mensagem  MZapia 17/7/2019, 22:32

    Prezados, boa noite.

    Desenvolvi um formulário (DIVIDIDO) que apresenta os valores por dia (do dia 1 até 31), conforme código abaixo:

    Código:
    sql = "TRANSFORM SUM(IIF(tbCPCR.Tipo=17,tbCPCR.prevValor *-1,tbCPCR.prevValor)) AS TotalGeral"
    sql = sql & " SELECT tbConta.Conta, SUM(IIF(tbCPCR.Tipo=17,tbCPCR.prevValor *-1,tbCPCR.prevValor)) AS Total"
    sql = sql & " FROM tbCPCR"
    sql = sql & " INNER JOIN tbConta ON tbCPCR.Conta=tbConta.ID_Conta"
    sql = sql & " WHERE tbCPCR.Status=1"
    sql = sql & " AND Year(tbCPCR.prevVencimento)=" & Year(Date)
    sql = sql & " AND Month(tbCPCR.prevVencimento)=" & Month(Date)
    sql = sql & " GROUP BY tbConta.Conta"
    sql = sql & " PIVOT Format(tbCPCR.prevVencimento,'dd')"
    sql = sql & " IN ('1','2','3','4','5','6','7','8','9','10','11','12','13','14','15','16','17','18','19','20','21','22','23','24','25','26','27','28','29','30','31')"

    With Me
        .RecordSource = ""
        .RecordSource = sql
    End With

    Está funcionando tranquilamente, porém gostaria de mais uma opção que seria idêntica ao da consulta que criei (para teste), porém considerando que as colunas que não possuem valores NÃO DEVEM aparecer no formulário.

    Um detalhe...estou utilizando diretamente no form ou seja, não criei a consulta e vinculei ao mesmo.

    Quero que quando selecionar um período, apareça somente os dias (no caso) que possuem valores.

    Atenciosamente,
    Marcelo
    Cláudio Machado
    Cláudio Machado
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1633
    Registrado : 17/03/2011

    Utilizando TRANSFORM em Formulário Dividido Empty Re: Utilizando TRANSFORM em Formulário Dividido

    Mensagem  Cláudio Machado 21/8/2019, 22:09

    Boa noite.
    Se você criar uma consulta e informar no critério >0
    E utilizar esta mesma consulta para exibir os valores irá retornar somente os dias com valores.

    sql = "TRANSFORM SUM(IIF(tbCPCR.Tipo=17,tbCPCR.prevValor *-1,tbCPCR.prevValor)) AS TotalGeral"
    sql = sql & " SELECT SuaConsulta.Conta, SUM(IIF(tbCPCR.Tipo=17,tbCPCR.prevValor *-1,tbCPCR.prevValor)) AS Total"
    .....


    .................................................................................
    " Nunca cruze os braços diante de qualquer problema ou dificuldade, pois o maior homem do mundo Jesus,  morreu de braços abertos."

    Agradeça e feche o tópico clicando no botão Resolvido. Se não sabe como, veja  AQUI.
    Não esqueça de clicar no Joinha Utilizando TRANSFORM em Formulário Dividido 90dssg para agradecer a dica que solucionou seu problema.

      Data/hora atual: 28/3/2024, 14:39