Deletar registros depois de ter feito uma consulta

Boa tarde amigos, tenho uma consulta para exibir registros cadastros entre duas datas, exemplo. Todos os registros feitos em 01/04/2013 a 04/04/2013 e quando e exibido quero um codigo em um botão para apagar estes registros do meu bd. Usei o codigo

Private Sub Comando102_Click()
If MsgBox("Estes registros devem ser excluidos, pois ja forão antecipados ?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
CurrentDb.Execute "DELETE FROM tblvendas;"
MsgBox "Registros excluidos com sucesso...", vbInformation, "Aviso"

End Sub


Mais acontece que este codigo deleta todos os registros da tabela, e quero somente os que estão na base da consulta..

Então mude, tire o nome da tabela e coloque o nome da consulta na linha do DELETE.

Ola Leandro boa tarde, eu ate pensei em fazer isso trocar o nome da tabela pelo consulta mais da um erro..

Erro de tempo de execução

Parâmetros insuficiente. Eram esperados 2

O que pode ser feito..

Tenteou assim?:
CurrentDb.Execute "DELETE "*" FROM SuaConsulta;"

Escreva o seguinte após o cabeçalho do botão:
On Error Resume Next

Leandro a mensagem de erro saiu, mais acontece que o comando não esta deletando o registro .. A mensagem de registro deletado e exibida mais ele não e excluido... tem algum outro modo?

Para teste faça: construa uma cons exclusão com a consulta e execute-a no lugar do currentDb assim: DoCmd.OpenQuery "SuaCons" vamos ver o que acontece. Se ser certo mudamos o código.

Leandro a consulta exclusão realmente apaga os registros da consulta, mais acontece que tenho que ver primeiro os registros e depois apaga-los. Quando coloco este código no botão apagar, como minha consulta tem critérios ele exibe a janela de parâmetros novamente.. Quero fazer com que eu aperte um botão e o botão execute a consulta exclusão sem abrir a janela de parâmetros.

Beleza, então por favor copie e cole o sql da consulta exclusão aqui.

Leandro não entendi muito bem como copiar o sql da consulta, pode me dar mais detalhes de como fazer, ainda sou um pouco leigo no assunto, obrigado pela paciência..

Quando você coloca a consulta em estrutura ou Design tem a opção de ver o sql, é só clicar no dropdown ao lado, veja na imagem.



Clique em: SQL Modo Sql, copie e poste por favor.

A ta, me desculpe pela demora tive alguns imprevistos.
DELETE ConRedecardAntec.EMPRESA, ConRedecardAntec.[VALOR LIQUIDO], ConRedecardAntec.[DATA DA VENDA], ConRedecardAntec.[DATA A RECEBER], ConRedecardAntec.DESCRIÇÃO, ConRedecardAntec.LIQUIDO
FROM ConRedecardAntec;

Você disse acima que sua consulta tem critérios, mas onde estão não vejo nenhum no sql que você postou.

Desculpe Leandro mandei errado, esta e a certa..

SELECT tblvendas.EMPRESA, tblvendas.TERMINAL, tblvendas.POS, tblvendas.[VALOR LIQUIDO], tblvendas.[DATA DA VENDA], tblvendas.[DATA A RECEBER], tblvendas.DESCRIÇÃO, tblvendas.LIQUIDO
FROM tblvendas
WHERE (((tblvendas.EMPRESA)="CIELO") AND ((tblvendas.[DATA DA VENDA]) Between [data inicial] And [data final]));

Assim:

CurrentDb.Execute DELETE * FROM tblvendas WHERE EMPRESA='" & "CIELO" & "'" & AND [DATA DA VENDA]) Between #1/1/2013# And #1/31/2013#"

Fique atento para isso:

As datas tem formato "Norte Americano" Mês/Dia/Ano

Repare na segunda data do Between: 1/31/2013

Leandro o código esta dando erra de compilação, sintaxe.. coloquei o cadigo em um botão evento ao clicar..

Como você colocou?

Boa tarde Leandro desculpe pela demora de responder e que eu trabalho na rua e estou um pouco tarefado.. u coloquei o códico em botão evento ao clicar..

Private Sub Comando102_Click()
On Error Resume Next

If MsgBox("Deseja escluir estes registros ?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then Exit Sub
CurrentDb.Execute DELETE * FROM tblvendas WHERE EMPRESA='" & "CIELO" & "'" & AND [DATA DA VENDA]) Between #1/1/2013# And #1/31/2013#"
MsgBox "Todos os registros foram excluidos...", vbInformation, "Aviso"

End Sub

Ow Matheus, desculpa aí, mandei um troço errado, tem um parentese sobrando.


CurrentDb.Execute "DELETE * FROM tblvendas WHERE EMPRESA='" & "CIELO" & "'" & "AND [DATA DA VENDA] Between #1/1/2013# And #1/31/2013#"

Boa noite Leandro obrigado pelas dicas, mais aconteceu algo aqui da uma olhada.. Vou postar uma imagem no word com a janela do erro..

Matheus pode postar parte do banco? Ai poderemos te ajudar!

Ola Lupercio boa noite, vou tentar explicar melhor para vcs.. Neste meu exemplo que estou postando tenho uma consulta que me traz todas as vendas feitas com a empresa Cielo, e tenho um criterio para que me exiba registros entre duas datas, como.. Vendas feitas nos dias entre 01/04/2013 a 04/04/2013.. Este criterio e feito para antecipar as venda e como as vendas são antecipadas elas não podem constar em meus registros futuros pois ja as recebi.. Quero clicar no botão que se chama antecipar que esta em meu relatorio e excluir apenas aqueles registros que forão pedidos entre duas datas.. deu para ter uma noção?