[Resolvido]sql somar campo

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 .

.

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")

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.

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

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.

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


OK,   philipp.moreira

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

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

Olá,  philipp.moreira

Veja........




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

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")

BD Teste

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 !

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


OK,  philipp.moreira


 Resolvido.......


Muito Obrigado pela Ajuda, philipp.moreira !



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

philipp.moreira