[Resolvido]Reparcelamento de dividas

Boa tarde pessoal estou quebrando a cabeça com um problemas faz dias problema do qual gostaria de fazer da seguinte forma

exemplo: se eu tenho um parcelamento de 1.000,00 dividido em 10 X de 100,00
eu pagaria apenas 4 parcelas de 100,00 e as demais atrasasse e fizesse um novo parcelamento do restante que seria 6 parcelas de 100,00 mais os juros
como seria o código para resolver esta questão através de um botão no formulário :frmVendas "chamado [Reparcelamento]"
so lembrando nao sei se seria desta forma mas gostaria de nas parcelas em atrasos que seria as 6X 100,00 na data de pagamento ficasse todas com a data  do dia que foi feito o reparcelamento e o valor do pagamento ficasse como 0,00 e criasse um novo parcelamento

desde ja muito obrigado
segue o anexo abaixo

Inseri um campo txt para informar a taxa de juros aplicada.

só não se ao certo se é esta forma correta de recalcular juros em cima de divida ativa.

'scandinavo 28/07/20
'zera as prcelas em atrazo e refaz um novo parcelamento incluindo juros

'On Error Resume Next
Dim Divida As Currency 'Variavel para somar a divida
Dim N As Integer 'numero de parcelas n?o pagas
Divida = 0 'inicio da variavel Zero
N = 0 'inicio da variavel Zero

Set DB = CurrentDb

If MsgBox("Reparcelar divida...." & vbCrLf & vbCrLf & Me.CodVenda, vbInformation + vbYesNo, "Calotero") = vbYes Then
'Abre a tabela de acordo com o codigo da vendas e as parcelas que n?o foram pagas
Set rs = DB.OpenRecordset("SELECT * FROM Tbl_ContasAreceber WHERE Cod_TabVenda = " & Me.CodVenda & " and isnull(txt_pg_pendente) ")
'fechando as parcelas em aberto
Do While Not rs.EOF 'Repetirei para todas as parcelas

rs.Edit
Divida = rs!Valor_Parcela + Divida 'Soma a divida a cada passagem pelos registros
N = N + 1 'conta o numero de parcelas em aberto
rs!Dt_Pgto = Date 'data do dia
rs!Valor_Parcela = 0 'zeras as que nao foram pagas
rs!txt_pg_pendente = "Reparcelado" 'marca como reparcelado
rs.Update

rs.MoveNext 'Movo para proximo registro
Loop

MsgBox "Total " & Divida & " parcelas " & N

Divida = Divida + (Divida * Me.txtJuros / 100) 'Nova Divida com juros

MsgBox "Divida mais Juros " & Divida
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Inserindo as novas parcelas
Valor_Parcela = Divida / N 'Valor de cada Parcela
For i = 1 To N 'Insere as Parcela N ? u numero de parcelas restantes
rs.AddNew
rs("Cod_TabVenda") = Me.CodVenda
rs("Parcelas") = i & "/" & N

rs("Valor_Parcela") = Valor_Parcela
rs("Dt_Vencimento") = DateAdd("m", i - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto atrav?s da fun??o DateAdd()
rs.Update
Next
rs.Close
DB.Close
Me.frmSub_ContasAreceber.Requery 'Atualiza o SubForm

Set DB = Nothing
Set rs = Nothing

Else

MsgBox "Edi??o Cancelada", vbInformation, "Editar"
End If

boa noite scandinavo muito obrigado por me responder e me desculpe pela demora talvez nao tenha me expressado direito porem a forma que quero seria assim :

Dt_pgto =ficasse como a data que foi feito o reparcelamento
valor_pago=das parcelas que ainda falta para pagar ficasse com 0,00
e ja o valor com os juros seria da seguinte forma
valor dizer que tenho 10 parcelas de 100,00
paguei somente 4 parcelas de 100,00 e deixei atrasar as demais depois de um tempo liguei para a loja para fazer uma negociação
e o valor corrigido estava em 850,00 porem eu iria parcelar estes 850,00 em 10 vez novamente, não sei se expliquei certo mais quando eu disse valor em atraso mais juros , gostaria de já digitar o valor a ser parcelado

muito simples insira 2 imputibox no codigo e faça a alteração no codigo para pegar o valor da divida e o numero de parcelas destas imputbox.
ou inserir um campo no frm para informar o valor renegociado (e na tabela também para registro) o campo com o numero de parcelas ja tem. ai é só adaptar o codigo.
tenta ai se não conseguir fazer me avisa.

Insira um novo campo na tabela. no evento ao clicar do botão.



'scandinavo 28/07/20
'zera as prcelas em atrazo e refaz um novo parcelamento incluindo juros
'On Error Resume Next
Set DB = CurrentDb

If MsgBox("Reparcelar divida...." & vbCrLf & vbCrLf & Me.CodVenda, vbInformation + vbYesNo, "Calotero") = vbYes Then
'Abre a tabela de acordo com o codigo da vendas e as parcelas que n?o foram pagas
Set rs = DB.OpenRecordset("SELECT * FROM Tbl_ContasAreceber WHERE Cod_TabVenda = " & Me.CodVenda & " and isnull(txt_pg_pendente) ")
'fechando as parcelas em aberto
Do While Not rs.EOF 'Repetirei para todas as parcelas

rs.Edit
rs!Dt_Pgto = Date 'data do dia
rs!Valor_Parcela = 0 'zeras as que nao foram pagas
rs!txt_pg_pendente = "Reparcelado" 'marca como reparcelado
rs.Update

rs.MoveNext 'Movo para proximo registro
Loop
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'Inserindo as novas parcelas
Valor_Parcela = Me.txtDivida / Me.QtdeParcelas 'Valor de cada Parcela
For i = 1 To Me.QtdeParcelas 'Insere as Parcela
rs.AddNew
rs("Cod_TabVenda") = Me.CodVenda
rs("Parcelas") = i & "/" & Me.QtdeParcelas

rs("Valor_Parcela") = Valor_Parcela
rs("Dt_Vencimento") = DateAdd("m", i - 1, Me.txtVenc_1_Parc) 'Calcula as datas de Vencto atrav?s da fun??o DateAdd()
rs.Update
Next
rs.Close
DB.Close
Me.frmSub_ContasAreceber.Requery 'Atualiza o SubForm

Set DB = Nothing
Set rs = Nothing

Else

MsgBox "Edi??o Cancelada", vbInformation, "Editar"
End If

boa noite scandinavo muito obrigado pela força problema resolvido

Bom dia  scandinavo  me desculpe estar reabrindo este tópico  gostaria de fazer uma alteração só que já tentei e não consegui gostaria de fazer da seguinte forma pego o valor do reparcelamento e retira o restante do parcelamento anterior assim irei saber o quanto estou pagando a mais a diferença gostaria de lançar na última parcela do parcelamento antigo  exemplo Antes do reparcelamento  devia 100,00 em 5 x paguei apenas 1
E fiz o reparcelamento com os juros ficou em 110,00 dividi em apenas duas vezes

Parcela             valor           juros
1/5                    20,00
2/5                    0,00
3/5                    0,00
4/5                    0,00
5/5                    0,00               30,00  'este valor são os juros da diferença entre o parcelamento anterior e o reparcelamento
1/2                    55,00
2/2                    55,00

Tem como postar o sistema. Pelo que eu tinha entendido você ia criar um campo para informar o valor do novo reparcelamento.

boa noite scandinavo eu consegui resolver coloquei outro comando para criar uma nova parcela se estiver juros
muito obrigado pela força