[Resolvido]Calculando os campos em subformulário e atualizando os valores totais

Boa noite a todos os mestres!

Preciso de uma ajuda com um formulário onde insiro movimentação de um caixa da empresa, coisa simples, porem preciso que alguns campos do subformulario ao serem atualizados se recalculem.

Detalhes:

Tabela: tabCaixa

Campos: [EntradaValor]
             [Saida]
             [ValorCaixa]

Preciso que o código pegue o valor do campo [ValorCaixa] do registro anterior, mova para o próximo registro, some com o campo [EntradaValor], subtraia do campo [Saida] e grave no campo [ValorCaixa] do mesmo registro, assim suscetivamente, até atualizar todos os valores do subformulário. Acontece que quando cadastro um novo registro ele já insere na tabela o valor do campo [ValorCaixa] calculado, porem se eu atualizar um registro antigo, os valores do campo [ValorCaixa] tem que se atualizar em todos os outros registros da tabela.

Consegui fazer no vba colocando no evento de um botão, porem tenho que ficar apertando ele varias vezes para poder recalcular.
Existe uma forma de faze-lo com que ele faça sozinho todos os registros? tipo um Loop?


Segue a imagem e o BD.

Boa noite!

Atualizando, quase consegui com o seguinte codigo:

Dim rs As DAO.Recordset

Set rs = Me!frmCaixaHomeSub.Form.RecordsetClone

rs.MoveFirst
Me.txUltimoTotal = rs("ValorCaixa")

rs.MoveNext
Me.txEntraValor = rs("EntradaValor")
Me.txSaiValor = rs("Saida")

Do While Not rs.EOF
rs.Edit
rs("ValorCaixa") = Me.txUltimoTotal + Me.txEntraValor - Me.txSaiValor
rs.Update
Me.txUltimoTotal = rs("ValorCaixa")

rs.MoveNext
Me.txEntraValor = rs("EntradaValor")
Me.txSaiValor = rs("Saida")
'Exit Sub
Loop
rs.Close
Set rs = Nothing


O código começa pegando os valores dos campos e jogando em textbox para armazenar, feito isso ele move para o proximo registro gravando na tabela o valor somado dos campos, feito isso ele novamente copia os codigos para as textbox, porem ai que está emperrando, ao chegar no Loop ele da erro, diz que o valor que inseri não é valido para o campo "Me.txEntraValor = rs("EntradaValor")" essa linha, onde estou errando? =/

Bom dia...

Talvez esse link abaixo facilite um pouco o desenvolvimento em questão.

Atenção a mensagem de numero 2 onde está o anexo

https://www.maximoaccess.com/t30241-extrato-bancario-saldo-linha-a-linha

Olá Silvio!

Obrigado pela atenção! Seria "quase" isso, a ideia é a mesma, porem eu preciso que o ValorTotal seja cadastrado na tabela junto com o de EntradaSaida, no caso do exemplo que me passou, ele apenas faz o calculo e informa sem salvar na tabela.
O meu eu preciso que ao alterar um registro antigo, todos os ValoresTotais se Recalculem nos registros.

Oi wilflx2
Eu acho que é isso que você precisa

Saludos desde Bolivia

Grande FranklinJSP! É exatamente isso que estava precisando!

Muito obrigado pela ajuda! Valeu como estudo e para terminar meu sistema! Obrigado a todos!

Esqueci de marcar!

Resolvido!

Que bom!!!