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

    Compartilhe
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    [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ê"
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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)
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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ê"
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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


    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    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ê"
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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ê"
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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

    [Você precisa estar registrado e conectado para ver esta imagem.]

    [Você precisa estar registrado e conectado para ver esta imagem.]

    [Você precisa estar registrado e conectado para ver esta imagem.]


    Ú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ê"
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]sql somar campo

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

    Olá,  philipp.moreira

    Veja........

    [Você precisa estar registrado e conectado para ver esta imagem.]


    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ê"
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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ê"
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    Re: [Resolvido]sql somar campo

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




    BD Teste


    .................................................................................
    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ê"
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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ê"
    avatar
    philipp.moreira
    Avançado
    Avançado

    Respeito às Regras 100%

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

    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
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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ê"
    avatar
    PauloMaia
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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: 14/11/2018, 11:51