[Resolvido]Resultado errado

Amigos é o seguinte neste bd de exemplo tem um contas a receber do cliente.
Mas não sei onde esta o erro,o cliente me deve 100.00 clico no botão receber vem o form de recebimento o cliente deste 100.00 paga 60,00 e fica devendo 40.00 até ai tudo bem,
mas quando ele vem me pagar o restante o valor a pagar teria que zerar ma não é isso que acontece,alguém poderia dar uma olhada pra mim.
Abçs.

https://dl.dropboxusercontent.com/u/90217826/Osteste.rar

Boa tarde,

experimente esse código:

Código:

Private Sub btnGravar_Click()
If MsgBox("Confirma Recebimento ? " & Chr(10) + cboCliente & Chr(10) + Chr(13) & "No Valor de  " & Format(txtTotalPago, "0.00"), vbYesNo + vbQuestion, "Conforlar") = vbNo Then
Me.Undo  ' Desfaz a alteração.
DoCmd.Close
Else
Dim DB As Database, rs As DAO.Recordset
  Set DB = CurrentDb()
  Set rs = DB.OpenRecordset("rea8", dbOpenDynaset)
  With rs
  .FindFirst "Cod_os = " & Me.Cod_os
  .Edit
    rs("txtValor") = Me!txtTotalPago - rs("txtvalor").Value
  .Update
  .Close
  Set rs = Nothing
  Set DB = Nothing
  On Error Resume Next
  Forms!FormElet!lista52.Requery
  End With
  MsgBox ("Recebimento Gravado Com Sucesso "), vbInformation, "Controle de Estoque e Vendas"
  End If
 
  End Sub

Bons estudos !

Ola Silvio,continua do mesmo jeito quando o cliente paga o restante ao inves de zerar o valor no FormElet aumenta.

vou ver....
hoje o dia esta meio apertado...mas a noite eu dou uma olhada melhor.
abraços

Ok..

Boa noite Kaynan

No FormElet O cliente Codigo 108 tem um valo a pagar de 100.

E na tabela REA8 o mesmo cliente codigo 108 o txtvalor = 0

Assim como

No FormElet O cliente Codigo 111 tem um valo a pagar de 120.

E na tabela REA8 o mesmo cliente codigo 111 o txtvalor = 0

Aguardo

Ola mestre, tens razão, do jeito que esta só aparece na tabela quando se faz o pagamento, se o cliente quita toda a dívida aparece o valor quitado na tabela.
Como seria o certo mestre.

Bom dia amigos ,oque daria pra fazer pra dar certo estes resultados..

Alguma ideia pessoal.

Não vai ter jeito esta minha lida pessoal.
Se não der, paciencia .

Bom dia Dilson, prazer em revê-lo por aqui....

É bem por ai mesmo....

Realmente Dilso e Silvio agora deu certinho.
Muito obrigado a todos,valeu mesmo..
Abç e bom fim de semana.

Kaynan
A Mensagem Nº 6 teve algum valor o alerta que dei ?

Assis no campo TXTVALOR da tabela REA8 vai aparecer os totais conforme o cliente for pagando,antes de vazer algum pagamento o campo fica zerado.