Consulta com Saldo aculmulado - Extrair informação do Saldo acumulado do Dia anterior

Boas Amigos, tenho uma consulta que me dá o saldo acumulado de um movimento bancário (Débitos, créditos e cheques)

Código:


SELECT tbl_Movimento.ID_MOV, tbl_Movimento.Banco_ID, tbl_Movimento.Data_Mov_e, tbl_Movimento.DepositoDinheiro, tbl_Movimento.DepositoChBloq, tbl_Movimento.DebitosDiversos, Format(IIf([ChBloqEntrada]=-1,(nz([DepositoDinheiro])+nz([DepositoChBloq]))-nz([DebitosDiversos]),nz([DepositoDinheiro])-nz([DebitosDiversos])),'Currency') AS [Saldo Real], Format(IIf([ChBloqEstorno]=0,IIf([ChBloqEntrada]=0,[DepositoChBloq],0),0),'Currency') AS [Saldo Indisponível], Format(DSum("[Saldo Real]","QryMovimento","[ID_Mov] <=" & [ID_Mov] & " and Banco_ID=" & [Banco_ID]),"Currency") AS SaldoAcumulado, tbl_Movimento.ChBloqEstorno, tbl_Movimento.ChBloqEntrada, IIf([ChBloqEstorno]=-1,IIf([ChBloqEntrada]=0,[DepositoChBloq],0),0) AS DepositosChequeDevolvido
FROM tbl_Movimento
ORDER BY tbl_Movimento.ID_MOV, tbl_Movimento.Data_Mov_e;


Em uma caixa texto consigo o Saldo do Atual:
=DÚltimo("SaldoAcumulado";"QryMovimento";"[Data_Mov]= #" & [txtData] & "# And [Banco]=" & [strBanco] & "")

Pergunto... como conseguir o último saldo do dia anterior?
Tentei com uma caixa texto utilizando o DateAdd e esta no parametro da expresão:

txtData1 = DateAdd("d", -1, (strData))

=DÚltimo("SaldoAcumulado";"QryMovimento";"[Data_Mov]= #" & [txtData1] & "# And [Banco]=" & [strBanco] & "")


Porem não resultou.

Alguma ideia?

Cumprimentos.

E [txtData] - 1?

Não dá amigão pois não necessariamente a data do dia anterior seja -1... Se a ultima movimentação for no dia 4, e a proxima no dia 6.... Se -1 procuraria no dia 5 sendo que não existira lançamento para o dia..


Creio que resolvi da seguinte maneira:

Em uma caixa texto pego o Menor código para a ultima data válida, através do Dmin, em seguida diminuo 1 do código Pegando portando o Código válido para a data anterior:

=DMín("ID_Mov";"QryMovimento";"[Data_Mov_e]= #" & Format([txtData];'mm/dd/yyyy') & "# And [Banco]=" & [strBanco] & "")-1

Em seguinda na caixa texto do Saldo do dia Anterior, utilizo este codigo para pegar o saldo:

=DPesquisa("SaldoAcumulado";"QryMovimento";"ID_Mov=" & [IDAnterior] & "")

Pareceu funcionar corretamente.

O que acha?

Cumprimentos.

Veja o print... Assim que pronto este fluxo bancário postarei no repositorio.



Cumprimentos.

Se resolveu, resolvido está

Olá, Hary!

Não preciso dizer que sou totalmente contra usar função de dominio em consultas, pois é um verdaddeiro desastre para o desempenho do aplicativo.

Gostaria de levantar dois pontos neste seu projeto para vc pensar em melhorias

O ID_Mov usado na função é a numeração automática do Access ?

Format(DSum("[Saldo Real]","QryMovimento","]ID_Mov] <=" & ]ID_Mov] & " and Banco_ID=" & [Banco_ID]),"Currency") AS SaldoAcumulado

Se for a númeração automática estaria cometento um equívoco, pela seguinte razão: Imagina o usuário ter esquecido de lançar alguma coisa no dia. Aí 3 dias depois ele lança o item esquecido. O que irá acontecer com a numeração em relação a data ?????

Outra questão: Tente imaginar sua conta num banco a 10 anos. Será que o banco, para lhe oferecer o saldo, irá somar desde a primeiro movimeto ?????

Um pouco mais do assunto neste link


http://maximoaccess.forumeiros.com/t10778-saldo-de-conta-corrente

Bom estudo!

Esta coberto de Razão Mestre... Vou olhar com calma o teututorial;;;No entanto...Pode ate parecer bobagem... Mas tenho uma queda por listBox...como fazer isso sem utilizar consultas..
Bem... vou dar uma olhada com calma no Tutorial e dou um retorno aqui.

Obrigado pela participação. ABraços.

E....Testando agora o objeto deste tópico... Voltei a estaca zero..

A expressão:
=DMín("ID_Mov";"QryMovimento";"[Data_Mov_e]= #" & Format([txtData];'mm/dd/yyyy') & "# And [Banco]=" & [strBanco] & "")-1

Funciona se há lançamento no dia, hoje como ainda não há lançamento não encontrou portando o resultado esperando, ocasionando erro no saldo anterior.

Além do que o Avelino tem 100% de razão quanto a questão do usuário lançar uma data passada e ser gravada com autonumeração, isso realmente furaria o resultado esperado.

Bem.. Sugestões são bem vindas. Irei ler o tutorial do Avelino.

Cumprimentos.

Ao invés de classificar por ID, pode classificar por data.

Sim claro.. o problema é que se a data do saldo anterior for de 3 dias atras por exemplo....

O que fazer..?


Estive testando um BD do avelino com funções de dominio e uma tabela temporaria..

A utilizacao como tbltemporaria reduz drasticamente o tempo de execucao...

Mais sugesotes serao bem vindas.

Cumprimentos.

No caso da navegação para o registro anterior, ao invés de navegar por data, pode navegar por registro.

Refresque-me a memória ó Grande Mestre dos Magos....

Por que não usar uma função usando o recordset para realizar o cálculo do saldo anterior ?

dim SA as double
dim rs as dao.recordset
dim srtSql as string
strSql = "SELET * FROM tbl_movimento WHERE Data_Mov_e < " & me!CampoDataMovimento & " AND Banco_ID = " & me!BancoID & " ODER BY Data_Mov_e;"
Abre o recorset
Realize um loop com o DO WHILE para percorrer os registros
Vai acumulando o valor na varialavel SA
passe, no final do loop, o valor de SA para o campo SaldoAcululado do formulário > me!campoSaldoAcumulado = SA


Muito melhor que esse Demônio(risos) de consulta usando o Dsum().

Tente ai e retorne com o resultado

Aguardamos

Compreendo o que falou Avelimo... Ocorre que vossa participação neste tópico está me abrindo a mente quanto a questão que suscitou....

Ja estou querendo mudar toda a logica disso para a forma como fez.... Neste tópico que me indicou há um print de um controle de saldo..
tens como enviar-me?

Cumprimentos.

Boas Amigos, deixarei este tópico em aberto por enquanto, masnão darei prosseguimento a ele no momento, pois tenho que cumprir um contrato em outro sistema. E este ainda será para entrega futura.

Avelino gostaria de no momento oportuno poder contar com seu auxílio na continuação deste, pois irei modificar toda a lógica para como sugeriu, Retirar as "Famigeradas" funções D como disse e vi que tens razão pois efetuei os testes que falaste.

Assim que voltar a este tópico... permita-me avisá-lo para que em possível me ajude a mudar esta mania de funções D.

Mestre dos Magos (Críquio) Obrgado pela sempre pronta disposição em Ajudar.

Abraços.

Olá, Hary!

Estou super atrasado mas estou quase terminando um artigo, com vídeo-aula, que irei liberar o aplicativo exemplo sobre Saldo. Na vídeo-aula tentarei passar uma visão do por que devemos seguir a regra "ACESSAR AS TABELAS SOMENTE O NECESSÁRIO".

Veja, sou contra usar as funções de Dominio ( DSum, DLast, DCount ...) em situações específicas como em consultas, em Loops e nos relatórios (maioria dos casos). Com a vídeo-aula que ire apresentar, acredito que os amigos irão entender melhor isso.

Sucesso!

Agiardaremos todos anciosos.

Obrigado Mestre.

Alguma novidade Mestre?

Cumprimentos.