Como Refazer essa Macro

Pessoal, bom dia!

Criei um sistema de parcelamento, porém, quando eu clico no botão gerar parcelas pela segunda vez, ele recalcula e adiciona abaixo das parcelas que ja tinham sido geradas.

Eu preciso fazer o seguinte, ao clicar no botão gerar parcelas, que ele delete o que ja foi calculado do registro atual e recalcule novamente, não duplicando no banco de dados.

Como faço isso?

o código que tenho é esse abaixo:

Private Sub btn_GerarParcelas_Click()
  'CurrentDb.Execute "Delete*From Tbl_ContasAreceber" (esse código estava deletando todo o banco de dados)
   Set db = CurrentDb()
   Set rs = db.OpenRecordset("Tbl_ContasAreceber")
   Valor_Parcela = Me.txt_totalVendas / Me.QtdeParcelas
   
   For I = 1 To Me.QtdeParcelas
       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.Dt_1Parcela)
       rs.Update
   Next
   rs.Close
   db.Close
   DoCmd.RunCommand acCmdSaveRecord
   Me.Tbl_ContasAreceber_subformulário.Requery
   'DoCmd.OpenReport "rel_Empréstimo", acViewPreview
             
   
End Sub

Olá, na parte que você comentou, tente colocar um Where com um campo de identificação única. Ex:

'CurrentDb.Execute "Delete*From Tbl_ContasAreceber Where IdContasAreceber=" & SeuIdenteficador

O importante é você saber se tem um identeficador exclusivo para deletar as parcelas geradas. Assim,
a consulta apagar só os dados daquele registro e não, todo o banco.

Qualquer coisa poste o Banco ai...

Vlw

Olá

Vamos ver se eu consigo ajudar também.
Pelo que entendi, Cod_TabVenda é o campo da tabela que faz referência ao campo CodVenda. Então, você vai precisar saber qual é esse valor antes de executar o comando delete como o wellingtoneo instruiu. Eu precisei fazer um código que buscava o código automático do access e fiz assim:

Código:

   Dim regAtual As Integer
    
    regAtual = Forms![NOME_DO_SEU_FORMULARIO_DE_VENDAS]![CodVenda] 'busca o CodVenda no formulário

Aí entra o código informado pelo wellingtoneo:

Código:

CurrentDb.Execute "Delete * From Tbl_ContasAreceber Where Cod_TabVenda="' & regAtual '""

As demais linhas do código continuam iguais. Todo o código ficaria assim:

Código:

Private Sub btn_GerarParcelas_Click()
Dim regAtual As Integer
    
regAtual = Forms![NOME_DO_SEU_FORMULARIO_DE_VENDAS]![CodVenda] 'busca o CodVenda no formulário
CurrentDb.Execute "Delete * From Tbl_ContasAreceber Where Cod_TabVenda="' & regAtual '""

   Set db = CurrentDb()
   Set rs = db.OpenRecordset("Tbl_ContasAreceber")
   Valor_Parcela = Me.txt_totalVendas / Me.QtdeParcelas
  
   For I = 1 To Me.QtdeParcelas
       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.Dt_1Parcela)
       rs.Update
   Next
   rs.Close
   db.Close
   DoCmd.RunCommand acCmdSaveRecord
   Me.Tbl_ContasAreceber_subformulário.Requery
   'DoCmd.OpenReport "rel_Empréstimo", acViewPreview
              
  
End Sub


Testa aí. Se não funcionar, anexa o banco para a gente dar uma olhada.

Abraço.