[Resolvido]Baixa Parcial e gerar parcela com restante

Olá pessoal,
Preciso de ajuda para fazer com que meu formulário quitar parcelas gere outar parcela com o restante no caso de pagamento parcial. já tentei de várias formas utilizei exemplos mas não consegui adaptar para o meu.  
Tenho um formulário para quitar as parcelas geradas com os campos parcelas, DtVencimento, ValorParcela, DtaPgto, ValorPago, Débito, Quitar(sim/Não) e um botão de comando (Baixar) com o seguinte código no evento ao clicar:
Private Sub Comando21_Click()

Dim Rst As DAO.Recordset
If Me.Débito > 0 And Me.Débito <> Me.ValorParcela Then
If MsgBox("O valor pago não corresponde ao valor em débito." & vbCr & vbCr & "Quer criar nova parcela com a diferença?", vbYesNo) = vbYes Then
Set Rst = CurrentDb.OpenRecordset("SELECT * FROM tbl_ContasAreceber")

Rst.AddNew
Rst("CodAutContaAreceber") = Me.CodAutContaAreceber
Rst("Parcelas") = Me.Parcelas
Me.Parcelas = Me.Parcelas
Rst("ValorParcela") = Me.Débito
Rst("DtVencimento") = Format(Me.DtVencimento, "dd-mm-yyyy")
Rst("Débito") = CCur(Me.ValorParcela - Me.ValorPago)
Rst.Update
Set Rst = Nothing
Me.ValorParcela = Me.ValorPago
End If
End If

Me.Form.Recalc
End Sub

Estou enviando o bd junto

Alguém pode me ajudar, agradeço.

boa tarde guedesgon eu uso este código no meu assim que estiver em casa dou uma olhada no seu e tento adaptar e retorno.

como você pretende o novo parcelamento porque o meu se eu devo 100,00 e pago 50,00 ele cria outra parcela de 50,00

Oi Marcelo Marques, agradeço pela atenção.

boa noite guedesgon veja este exemplo,
veja se e isto que você quer

bons estudo

abraço

Perfeito é isso mesmo que eu quero. Obrigado pela ajuda.

olá guedesgon obrigado pelo retorno se foi solucionado o problema dai como resolvido


abraço

Resolvido. Obrigado mais uma vez.

bom dia guedesgon obrigado e bons estudos

Republica a solução do problema. Por favor!