Calculo parcelas

Boa tarde galera venho mais uma vez tirar uma duvida espero alguém possa me avisar
Tenho um código num botão que pega o SubTotal e o Numero de parcelas e gera as parcelas sequenciais p que eu queria saber e como posso fazer para tipo se eu gerar as parcelas erradas para excluir e gera de novo tem que excluir as que foi gerada o problema e q tem que ser excluida uma por uma o que eu queria era um botão para excluir todas de uma vez... espero e agradeço a ajuda...

Private Sub Comando21_Click()
Dim i, strDetalhe_Calculo As Integer
Dim strValor As Currency
Dim strData_Parcela As Date

strDetalhe_Calculo = [Forms]![Alunos]![Qtda_Mes]
strValor_Parcela = [Forms]![Alunos]![ValorR$] / strDetalhe_Calculo
strData_Parcela = [Forms]![Alunos]![Data_Parcela]

If NParcela = "" Or IsNull(NParcela) Or NParcela = "0" Then
For i = 1 To strDetalhe_Calculo
DoCmd.GoToRecord , , acNewRec
Me.NParcela = i
Me.Valor_Parcela = strValor_Parcela
Me.Vencimento = DateAdd("m", i - 1, strData_Parcela)
Next
Else
MsgBox "Já foram calculadas as prestações desta nota." _
& " Para calcular novamente tem que excluir as Atuais.", vbCritical, "Erro"
End If

Amigo do céu,esta sala é só pra exemplos prontos e não para dúvidas veja as regras do forum, aqui nem um colega vai te atender.

Abçs.