[Resolvido]Quitar pagamentos

Bom dia a todos. Tenho um um formulário com todas as vendas que o cliente me deve. e outro com todos os pagamentos que ele realiza.
Quando o cliente pagasse toda a divida, gostaria de selecionar o botão "Quitar" da venda específica e o mesmo acontecesse em todos os pagamentos realizados.

segue em anexo o exemplo. O pedido 34184 foi pago em 2 pagamentos. Gostaria de selecionar a caixa "Quitar" e ela atualizasse a mesma caixa no subformulário abaixo. Quitando os 2 pagamentos.

Código:

Private Sub Txt_Quitar_BeforeUpdate(Cancel As Integer)
If Me.Txt_Quitar = -1 Then
Me.Status.Value = 2
  
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tbl_Recebimento2") 'Abre Tbl_Recebimento2

For i = 1 To 1
rs.Edit
rs("Status") = Me.Txt_Status
rs("Quitar") = -1
rs.Update
Next
rs.Close
db.Close
                    
Else
Me.Status.Value = 1
Set db = CurrentDb()
Set rs = db.OpenRecordset("Tbl_Recebimento2")
For i = 1 To 1
rs.Edit
rs("Status") = Me.Txt_Status
rs("Quitar") = Me.Txt_Quitar
rs.Update

Next
rs.Close
db.Close

End If
End Sub


Se alguem puder me ajudar, ficaria muito grato.

Olá,
Com uma consulta atualizar e um refresh deve resolver facilmente.
Crie uma consulta para mostrar os dados como tem no form.
Depois altere para atualizar o campo pretendido.
O botão quitar é correr a consulta e refresh.

Abraço

Deu certinho meu amigo.

muito obrigado pela ajuda. Até deletei o código.
haha

não tenho muita pratica no forum. Como faz para colocar RESOLVIDO?

se algum moderador ver, favor passar pra resolvido.

Obrigado.

Olá Othavio, obrigado pelo retorno.
Os utilizadores do fórum agradecem.

Desta vez eu coloco , veja link abaixo como fazer:
https://www.maximoaccess.com/t860-resolucao-de-topicos

Abraço