Excluir varios registros

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
Voltar ao Topo

Delete todas os registros da tabela ContaReceber referente a venda xxx

Ex:

'Coloque no Botão excluir Parcelas, ajuste com os nomes de campos e tabela
Currendb.Execute "DELETE * FROM tbContaReceber WHERE COdVenda = " & Me.CodVenda & ""
Me.Recalc

Dessa forma irá filtrar e apagar so os registros da Venda que estiver na tela, compara com o Campo do formulario de nome CodVenda.


Obs: Faça o teste em BD de Backup!

Boa noite amigo fabio tentei usa seu código porem da erro em tempo de execução 424. vou te explicar os dois casos bem certim pra vc me entende

tenho um formulario alunos e dentro desse formulario tenho controle de guias e tem uma com o nome calculos e dentro dela ta o sub formulário que gera parcelas com o nome Detalhe_Calculo e no rodape desse formulario o botão de gerar parcelas o que eu queria era criar um botão para poder apagar as parcelas geradas. seu código tentei mais não deu
Currendb.Execute "DELETE * FROM Detalhe_Calculo WHERE Cód_Aluno = " & Me.Cód_Aluno & ""
Me.Recalc

Outro probleminha e em outro formulario meu no vendas eu tenho o botão de excluir vendas porem se eu excluir a venda o Detalhe_Venda que e o sub formulario que adiciona os produtos fica la mais sem venda então o estoque n retorna pq ele ainda esta preenchido acredito que os problemas são parecido queria que no botões excluir venda antes de excluir a venda apagasse primeiro o sub formulario so que esse formulario e baseado em uma consulta Detalhe_Venda_Consulta.

se vc puder me ajudar agradeço.

Amigo, o erro que deu provavelmente e com os nomes dos campos, Poste aqui seu BD.

A outra questao é o Relacionameno. Deve marcar a caixa : Propagar exclusões...

Assim ao excluir o Registro do formulario principal, ele leva o registro relacionado do subformulario.

Bom dia amigo ta ai o db

https://www.dropbox.com/s/klwrpz2srajg88l/Sistema%20Academia%2005%2006.rar?dl=0

Bom acho que vc entendeu né o problema e no formulário alunos na aba calculo vc coloca a quantidade de parcelas e clica no botão gerar
blz ai o q eu queria era o botão para excluir todas elas de uma vez caso o usuario gere as parcelas erradas.

e no formulário vendas como te falei no botão excluir queria que primeiro ele deleta se os produtos primeiro..

login marcelo
senha 123

desde ja agradeço

Olá, pessoal.

Tenho um problema semelhante, mas que não consigo resolver.
Tenho um formulário com o um campo de data que eu preencho e um botão "Apagar registros".
Preciso que ao clicar nesse botão, sejam pagados os registros de uma tabela, quando o campo de data da tabela for igual ao que preenchi no formulário.
Utilizei o seguinte código:

Private Sub btApagar_Click()
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tbl_Registros")

'verifica se tem registros com a data selecionada:
If DLookup("Data", "Tbl_Registros", "txtData.Value") Then
'apagar registros da data selecionada
Currendb.Execute "DELETE * FROM Tbl_Registros WHERE Data = " & Me.txtData & ""

Else
GoTo NaoExecuta
Exit Sub
End If
NaoExecuta:
rs.Close
db.Close
exit_btApagar_Click:
Exit Sub
End Sub


No entanto, deu "Erro '424' O objeto é obrigatório".
Alguém saberia me ajudar?
Obrigada!

Boa tarde
Tente

Private Sub btApagar_Click()
'apagar registros da data selecionada
Currendb.Execute "DELETE * FROM Tbl_Registros WHERE CampoData=#" & Me.txtData & "#"
End Sub

adeqúe o CampoData para o nome certo

Boa tarde, Alexandre!

Agradeço a resposta rápida.
No entanto continua com o mesmo erro.

Será que eu poderia realizar essa ação de outra maneira?

Obrigada novamente.

Isabella, o seu formulario é continuo ou simples.

Boa tarde, JPaulo!

Não sei exatamente qual a diferença.
Se ajudar, segue o arquivo do DB.

Agradeço pela assistência.
Abs.