MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]sql somar campo

    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty [Resolvido]sql somar campo

    Mensagem  PauloMaia em 13/4/2017, 20:40

    Olá,
    Estou criando um relatório e dentro dele coloquei este campo ( txtSomaJaneiro ) , e no evento ao abrir do relatório estou tentando inserir esta SOMA, do campo ( ccCrédito ) da tabela ( tbl_FluxoCaixa ).

    Porem não estou conseguindo ajustar o critério -> pois preciso que ao abrir do relatório esse campo receba a Somatória de ccCrédito da tabela "( porem baseado no mês 01 do ano vigente )" , Com base no campo (cdData) da mesma tabela.

    Código:
    txtSomaJaneiro = DSum("ccCrédito", "tbl_FluxoCaixa", "And Year (cdData) = 01/yyyy")

    Ou seja se eu abrir o relatório esse ano ele soma o mês de janeiro referente a este ano.
     ... e ;
     Se eu abrir o mesmo relatório, só que  no ano que vem ele vai somar janeiro do ano que vem, 2018.

    ...........

    Preciso colocar como Fonte de registro do relatório esta tabela  ( tbl_FluxoCaixa ) ?
    Setar o db  ,  Set dbs = CurrentDb    ?

    Dentro do evento ao abrir do form .

    .


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  philipp.moreira em 13/4/2017, 20:48

    Paulo, boa tarde!

    Sim, defina a tabela como fonte de dados do relatório e quanto ao código, tente assim:

    Código:
    txtSomaJaneiro = DSum("ccCrédito", "tbl_FluxoCaixa", "Year(cdData)+01 = Year(Date)+01")


    Última edição por philipp.moreira em 13/4/2017, 20:57, editado 1 vez(es)
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 13/4/2017, 20:54

    Sim , porem antes de mais nada desde ja peço desculpas pela minha ignorância.

    mas onde esta o critério que define o mês de janeiro "mês 01 do ano vigente" para o filtro de somatória das datas do campo cdData ?

    pois na tabela existem lançamentos do ano todo.

    e posso abrir esse relatório a qualquer momento do ano entende.

    Esse critério "consulta", deve filtrar os lançamentos referente ao mês de janeiro e somar o campo ccCrédito.

    Código:
    Private Sub Report_Load()

       Set dbs = CurrentDb

       txtSomaJaneiro = DSum("ccCrédito", "tbl_FluxoCaixa", "Year(cdData) = Year(Date)")

    End Sub

    Grato.


    Última edição por PauloMaia em 14/4/2017, 05:18, editado 2 vez(es)


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 13/4/2017, 21:07

    Dá erro em tempo de execução 2471
     a expressão que você inseriu como parametro da consulta gerou este erro: 'Date"


    Código:
    Private Sub Report_Load()

       Set dbs = CurrentDb

       txtSomaJaneiro = DSum("ccCrédito", "tbl_FluxoCaixa", "Year(cdData)+01 = Year(Date)+01")

    End Sub


    [Resolvido]sql somar campo Erro12


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 14/4/2017, 17:12


    Como posso corrigir esse erro ?

    Esse critério "consulta" que preciso, deve filtrar os lançamentos referente ao mês de janeiro e somar o campo ccCrédito.

    da tabela - tbl_FluxoCaixa

    --------

    depois que der certo com um mês , vou replicar um filtro/soma desse para cada mês do ano ! Para obter assim um relatório anual. somado mês a mês.






    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  philipp.moreira em 14/4/2017, 18:02

    Código:

    Private Sub Report_Load()

       Set dbs = CurrentDb

       txtSomaJaneiro = DSum("ccCrédito", "tbl_FluxoCaixa", "(Year(cdData)*100)+01 = (Year(Date())*100)+01")

    End Sub
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 14/4/2017, 19:13

    OK,   philipp.moreira

    o cod. passou , porem note na imagem que o valor não bate

    [Resolvido]sql somar campo Teste110

    [Resolvido]sql somar campo Teste210

    [Resolvido]sql somar campo Tvn10


    Última edição por PauloMaia em 14/4/2017, 19:34, editado 2 vez(es)


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  philipp.moreira em 14/4/2017, 19:32

    Paulo,

    poste seu BD (somente a parte necessária para resolução desta situação). Assim fica melhor de analisar e propor algo novo!

    Ou tente só mais uma vez, isto:
    Código:

    Private Sub Report_Load()

      Set dbs = CurrentDb

      txtSomaJaneiro = DSum("ccCrédito", "tbl_FluxoCaixa", "(Year(cdData)*100)+01 = (Year(Date())*100)+01 AND [D/C] = 'C' ")

    End Sub
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 14/4/2017, 20:07

    Olá,  philipp.moreira

    Veja........

    [Resolvido]sql somar campo Testan10


    tentei por o BD aqui mas não cabe mais do que 4,98 mb  ........................


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 14/4/2017, 20:13



    o que esta acontecendo é que esta somando toda a coluna , e não somente os lançamentos do mês 01

    eu fiz o calculo de toda a coluna e deu esse resultado da imagem do relatório,

    não esta filtrando o mês de janeiro "01" para somar, esta somando tudo.

    Código:
    txtSomaJaneiro = DSum("ccCrédito", "tbl_FluxoCaixa", "(Year(cdData)*100)+01 = (Year(Date())*100)+01")




    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 14/4/2017, 20:40



    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 14/4/2017, 21:27

    Vi no site do Avelino este ex. aqui

    Avelino / Usando Access

    Código:
    Imagine que você agora precise somar as despesas de Luz pagas de um Contas a Pagar, no ano de 2011.  A função Dsum() resolve a questão de forma bem simples.

    ValorLuz = Dsum("ValConta","tblContasPagas","TipoConta='Luz' And Year(DataPagamento)=2011")



    Mas não consigo adaptar, pois esse exemplo calcula por ano / e preciso por mês !


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    philipp.moreira
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 257
    Registrado : 05/02/2016

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  philipp.moreira em 14/4/2017, 23:00

    Paulo,

    todos os registros são de janeiro. Altere alguns para fevereiro de 2017 e tente este código:

    Código:

    Private Sub Report_Load()

      Set dbs = CurrentDb

      txtSomaJaneiro = DSum("ccCrédito", "tbl_FluxoCaixa", "(Year(cdData)*100)+Month(cdData) = (Year(Date())*100)+01")

    End Sub
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 14/4/2017, 23:28




    Muito Obrigado pela Ajuda, philipp.moreira !


    Última edição por PauloMaia em 14/4/2017, 23:36, editado 2 vez(es) (Razão : Esqueci de por Resolvido - Somente Isso.)


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"
    PauloMaia
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 02/05/2014

    [Resolvido]sql somar campo Empty Re: [Resolvido]sql somar campo

    Mensagem  PauloMaia em 14/4/2017, 23:34



    OK,  philipp.moreira


     Resolvido.......


    Muito Obrigado pela Ajuda, philipp.moreira !



    -------------------------------------
    Considerações e Agradecimentos à ;

    philipp.moreira


    .................................................................................
    O Conhecimento é uma Bagagem que não pesa, porem sempre que saimos para uma nova viagem... lembramos que podiamos ter levado algo a mais conosco.......
    "Não critique quem cair, ajude-o a erguer-se, tal como você gostaria que fizessem com você se estivesse no mesmo caso"
    "A vaidade é o pior dos defeitos porque engana a nós mesmos pois por mais que seja sábio, há sempre alguém mais sábio que você"

      Data/hora atual: 23/4/2019, 21:26