[Resolvido]Erro ao Subtrair e Gravar na Tabela

Por gentileza,

Estou com um probleminha, já estou quebrando a cabeça faz um tempo e não saio do lugar, por isso recorri ao fórum, é o seguinte...

Tenho um formulário que efetuo o controle do pagamento pagamento dos meus fornecedores, como base utilizei um exemplo aqui do fórum mesmo, porém necessitei efetuar alguns ajustes para satisfazer a minha necessidade.

Possuo três campos (A, B e C) que calculam os valores totais, e via VBA gravam tais valores em uma tabela, dois desses campos são somatórios e gravam perfeitamente (A e B), porém o último campo é uma subtração  entre os campos A e B (C = A - B).

O problema é que o campo C está gravando o calculo da linha anterior e não da atual.

Código:

Campo A: txtTotalPagar = DSum("total", "tblDetalheCompraFor", "codCompra =" & txtCodCompra)
Campo B: TxtSomaValorPago = DSum("ValorPago", "tblDetalheCompraFor", "codCompra =" & txtCodCompra)
Campo C: TxtRestanteValor = txtTotalPagar - TxtSomaValorPago <-- (Erro)

Anexo o BD:
https://dl.dropboxusercontent.com/u/81000360/DB%20Julia.zip

Mais uma vez obrigada.

Julia

Olá Júlia,

O arquivo não tem o formulário, nem a tabela envolvida nos cálculos.
Parece que você enviou outro arquivo por engano.

Olá Cláudio.

Enviei mesmo, obrigada.

Segue o correto:
https://dl.dropboxusercontent.com/u/81000360/DB%20Julia.zip

** Já corrigi no inicio.

Thanks!

No final do código do botão salvar, antes das 5 linhas de Requery, insira a linha abaixo:

Código:

CurrentDb.Execute "Update tblDetalheCompraFor Set Restante = Total - ValorPago"

Olá Cláudio.

Mais uma vez obrigada pela ajuda, nem sei quantas vezes me ajudou. Valeu mesmo!   

O que você me propôs funcionou perfeitamente, só que me revelou outra inconsistência, quando atualizo o valor pago ou quando deleto, os valores pagos ficam desatualizados, pra falar a verdade nem sei explicar direito o que ocorre.

Salva os valores que não são os atuais.

Veja: https://dl.dropboxusercontent.com/u/81000360/DB%20Julia%202.zip

** desculpa não ter respondido ontem, é que eu estava fora.

Julia

Oi Júlia,

Segue o arquivo com a correção.
Durante os testes, tive que alterar e excluir alguns registros, ok?
Se ainda ocorrer problemas, avisa.
Ajudo sempre que puder   
Bjs

Perfeito Cláudio!

Demorei responder pois estava viajando a trabalho.

Perfeito.

Mais uma vez obrigada!

Julia

Finish!

De nada Julia, disponha.