[Resolvido]Saldo linha a linha

Olá a todos!

Tenho uma tabela tblFinanceiro em que os campos finCode, finData, finVencimento, finCredito, finDebito devem aparecer no formulário contínuo na ordem crescente do campo finVencimento. Até mesmo para saber o saldo que terei no futuro.

Usei a seguinte consulta: Saldo: DSoma("[finCredito] - [finDebito]";"tblFinanceiro";"finCode <= " & [finCode])) e retornou a sequência de acordo com a ordem dos códigos. Mas há um problema. Como em vários casos lançarei de uma só vez 12 parcelas que vencerão mês a mês, então terei 12 registros e a ordem no "Saldo" ficará divergente.

Tentei fazer tal consulta usando "finVencimento <=" & [finVencimento], mas retorna o saldo de toda a cadeia de registros repetido em cada linha.

Depois fiz SALDO: (SELECT Sum(finCredito - finDebito) FROM tblFinanceiro AS financeiro WHERE financeiro.finVencimento <= tblFinanceiro.finVencimento ). O resultado ficou próximo do que esperava. Dá a soma de crédito - débito para o dia de vencimento, só que agrupado pelos lançamentos com a mesma data de vencimento. Assim:
Código Vencimento Saldo
24 12/12/15 10.000,00
45 12/12/15 10.000,00
67 12/12/15 10.000,00

O que preciso é de uma consulta que dê o saldo escalonado linha a linha ordenado pelos vencimentos.
Código Vencimento Saldo
24 12/12/15 5.000,00
45 12/12/15 2.000,00
67 12/12/15 3.000,00

Por gentileza, alguém poderia me auxiliar?

Héverson

É isso que pretende?




Se sim, aqui está o código para a caixa de texto:

=DSoma("[Crédito]-[Débito]";"[tbl_somacorrente]";"[iD]<=Formulários!frm_Saldo!id and [Data Movimento] =Formulários!frm_Saldo![Data Movimento]")
Formato para crédito: "R$ "#.##0,00
Formato para débito:  "R$ -"#.##0,00
Para saldo: "R$ "#.##0,00;"R$ -"#.##0,00
Substitua para os nomes do controles do teu aplicativo.
Na folha de propriedade do formulário em Fonte de Registro,clique  no botão ... (três pontos)
e cria a consulta para poder colocar a data de vencimento em ordem crescente.



[ ]'s

Noob
O que é a ( somacorrente) ?
Nome de campo ou tabela.

Assis

Vou deixar para aprender.

Embora tenha pego um código de um outro exemplo e modificado,
se conhece a função DSoma() ou Soma() já saberia.

Mas para esse pergunta te digo isso:

Digite DSum() ou Sum() na página do VBA que é o mesmo
que DSoma() e Soma() respectivamente, mudando apenas a virgula para
ponto e virgula.
Clique sobre a palavra com o rato (mouse)  e aperte F1

Bom estudo  

Tbl
Obrigado

Caro Noobezinho,

Como diria o filósofo: "algo de errado não está certo".

Veja na iD 12 que o saldo deveria ser R$10,00 e não R$0,00.

O problema é fazer com que o DSum faça a soma do crédito - débito na ordem crescente da data de movimento e depois na ordem crescente da id.

O saldo futuro tem que aparecer linha a linha obedecendo à sequência de data de movimento e id. Se puser só de data de movimento, então teremos um saldo agrupado pela aquela data específica.

Imagine um movimento de contas a pagar. O lançamento é feito na ordem de iD e os vencimentos podem ser iguais ou não a outros lançamentos.

Obrigado por enquanto!

Sds,

Héverson

Caros colegas,

sugiro abandonarem o Dsum() para cálculo de saldo no Access. Isso é um desastre para o desempenho do seu aplicativo. Pode parecer estranho mas é muito melhor armazenar o saldo na tabela, usando o recordset.

Outra questão - imagina vc ter 30000 registros nesta tabela. Vc irá usar o Dsum() para vim calculando o saldo desde o primeiro registro ??????

Veja um pouco do assunto neste tópico:

https://www.maximoaccess.com/t10778-saldo-de-conta-corrente

E veja também este meu artigo:

http://www.usandoaccess.com.br/tutoriais/movimento-bancario-saldo-linha-a-linha.asp?id=1#inicio

Sucesso!

Senhores,

A questão já nem é mais sobre DSum ou Sum no SQL... A questão é: como fazer com que o saldo futuro esteja calculado linha a linha na sequência de registros <= sequência de registros e <= ao vencimento? Já fiz a instrução SQL e de todas as formas que tentei não obtive resultado. Sei que o DSUM é danoso. Tanto é que se lerem na minha primeira postagem verão que tentei: (SELECT Sum(finCredito - finDebito) FROM tblFinanceiro AS financeiro WHERE financeiro.finVencimento <= tblFinanceiro.finVencimento ).

Sei como é o procedimento do Avelino e tal. Mas a minha situação está na cláusula WHERE.

Abraços!

Héverson

hheverson, espero que tenha olhado no link disponibilizado pelo mestre avelino pois adaptei o exemplo dele em um bd e hoje trabalho com movimentação de apenas 15 contas.

Olá hheverson, poderia enviar um arquivo com a tabela preenchida com os dados que geraram seu exemplo, e também a consulta?

Caro Cláudio,

Obrigado pela atenção.

Segue um exemplo do que tenho conseguido conforme classificação pelo código chave "id". Como expliquei, preciso que o saldo esteja ordenado pela data de vencimento crescente.

Da forma que está, ele dá o saldo linha a linha buscando a chave "id".

Segue o bd exemplo para ver e tentar algo: https://www.dropbox.com/sh/9en5snz7d5v2my2/AABm0mr3nYDVxaa2MSHPe7qla?dl=0

Abraços,

Héverson

Héverson

Uma imagem vale mais que mil palavras,

Por que não faz uma imagem como eu fiz, demonstrando

o resultado pretendido?

Caro Noobeziho,

Segue abaixo:

Héverson, vê se essa consulta atende:

Código:

SELECT vencimento, credito, debito, (SELECT Sum(credito - debito) FROM
(SELECT A.*, (select count(*) from tblFinanceiro where [A].[vencimento] & [A].[id]>=[vencimento] & [id]) AS Id2
FROM (SELECT vencimento, id, credito, debito FROM tblFinanceiro ORDER BY vencimento, id) AS A
ORDER BY A.vencimento, A.id) AS financeiro
WHERE financeiro.vencimento <= B.vencimento and financeiro.id2 <= B.id2) AS Saldo
FROM (SELECT A.*, (select count(*) from tblFinanceiro where [A].[vencimento] & [A].[id]>=[vencimento] & [id]) AS Id2
FROM (SELECT vencimento, id, credito, debito FROM tblFinanceiro ORDER BY vencimento, id) AS A
ORDER BY A.vencimento, A.id)  AS B


Conforme lembrou bem o Avelino, verifique a performance com uma quantidade grande de registros.
Se possível, não apenas 30.000, pelo menos 300.000 registros.
Apesar de não usar DSum(), subqueries também podem impactar.

Noobezinho,




Não consegui o seu exemplo apenas o do Heverson.



Acredito que o referencial que vc fala para ordenar os lançamentos dos vencimentos e saldos de um ou vários meses para uma ou várias contas, seria um campo no formato MM/YYYY.

Ou ainda usando recordset para gravar os saldos diretamente em uma tabela chamada SALDO_MENSAL formada pelo campos:

- CódigoSaldo;
- Mês/Ano;
- CódigoConta;
- SaldoAnterior;
- SaldoDevedor;
- SaldoCredor;
- SaldoAtual;
- MêsEncerrado(Sim/Não)


E complementando com um campo chave estrangeira da tabela SALDO_MENSAL na tabela dos Lançamentos.


Abraços,

Cláudio, você é o cara!

Quando vier a Joinville me avise. Terei que pagar uns dez canecos de chopp! Ou me diga a conta que mando uma grana para tomar uma por aí onde você mora kkkkk...

Funcionou em partes... Mas posso lidar com o resto. Farei como instrui Avelino.

[img][/img]

Veja que ele corta a soma na virada do mês. Sabe como resolver isso?


De qualquer forma isso reflete como devemos expandir as nossas mentes além da caixinha no access. Um objetivo tão simples para ser feito, em Excel por exemplo, e tão complexo no Access. Tem que pensar como Boolean mesmo.

Abraços!

Olá Héverson,

Somente agora vi sua resposta, desculpe a demora.
Poderia enviar novamente um arquivo somente com a tabela que está gerando os dados na imagem?
E também a consulta com o resultado.

Abraços

Por favor, se alguém puder me ajudar, desde já agradeço! Banco de Dados anexo.

Neste fluxo de caixa, como fazer para que o saldo final da linha não se repita e mostre correto linha a linha?

Na consulta      9ConsultaDa7_Final      a fórmula que utilizo é “abaixo”


Fluxo: Format(Nz(DSoma("[Vlr_Rec_Pagar]";"7RecebeDadosDa6";"DataNr <=" & [DataNr]);[Vlr_Rec_Pagar]);"Moeda")


Se abrir o fluxo, veja que dia 20 tem pagamentos e recebimentos, e a coluna fluxo (saldo) nestes dias se repetem. Como posso fazer para não repetir e mostrar o saldo correto linha a linha?

Obrigado!

Carlos

A data repete não pode ser .

Para estudo, veja

Olá Assis, desde já agradeço sua atenção.
O exemplo que você me passou já estudei anteriormente, ocorre erro se fizer um lançamento com data anterior as já existentes, pois preciso um fluxo de caixa com data crescente/sequência.
Eu sei que você sabe que isso ocorre porque o campo IdSaldo que está na tabela e na fórmula da consulta vem com numeração automática na tabela.
Não consegui, mas para tentar solucionar isso, eu criei um novo campo DataNr tipo calculado na tabela e com formato numérico, que mostra a data como numérico, na consulta alterei na fórmula de IdSaldo para este novo campo DataNr e também para classificar este novo campo DataNr em ordem crescente.
O saldo não fecha da mesma forma conforme meu BD que anexei anteriormente.
Veja que no BD o saldo não fecha linha a linha, mas fecha na última data repetida, digamos, serve mas tem esse detalhe.
Se tiver mais alguma dica, agradeço Assis. Abraço.

Acho que o banco de dados que postei na mensagem 18 em 15/05/2020 é o mais recomendado, visto que o outro bd ocorre erro quando data repetida ou data anterior a última lançada!
Se alguém ainda puder ajudar, agradeço.
Abraço a todos