Resultado inesperado do Código - Saldo

Boa tarde a todos!

Meu BD possui um formulário chamado Nota_Producao e as variáveis principais Num_Lote, Morte, saldo e Número_Atualizado. Copiei esse código para que possa retornar o saldo acumulado em linha porém está fazendo o cálculo no registro várias vezes e o Me!saldo está triplicando o valor  e aparece repetido para todos os registros e além disso quando posiciono o cursor em cada registro me aparece um valor diferente.


Não sei se fui claro e se puderem me auxiliar?

Código:

Private Sub Form_Current()
Dim RS As DAO.Recordset
Dim dblAcum As Integer

Set RS = CurrentDb.OpenRecordset("select * FROM Nota_Producao ORDER BY Num_Lote")
   Do While Not RS.EOF
      dblAcum = Nz(dblAcum, 0) - Nz(Me!Morte, 0)
      RS.Edit
              Me!saldo = dblAcum
        RS.Update
       RS.MoveNext
   Loop
   RS.Close
   Set RS = Nothing
End Sub

Olá Sandro,

Não falta exemplos no forum, veja como fazer uma "Busca":
https://www.maximoaccess.com/t1115-busca-no-forum-search

Veja por exemplo:
https://www.maximoaccess.com/t24579-resolvidosaldo-linha-a-linha
https://www.maximoaccess.com/t4782-resolvidosaldo-acumulado

Abraço

Prezado ahteixeira,

De fato existem vários exemplos mas em relatórios, com tabelas temporárias e o que preciso é para fazer lançamento de dados em formulários. Até fiz nu relatório utilizando o saldoanterior no cabeçalho do relatório e depois retornando os valores acumulados no detalhe do relatório. Porém o código no formulário é que tá pegando.

abraços

Olá Sandro,

Partilhe a base de dados com o relatorio em questão e dados de amostragem para se analisar.
https://www.maximoaccess.com/t28813-como-adicionar-arquivo-ficheiro-a-mensagem-no-forum

Assim fica mais facil para os membros compreender e poder testar/ajudar.

Abraço