[Resolvido]Apagar dados em Consultas

Bom dia

Cá estou outra vez.

Com o exemplo a seguir consigo apagar registos em tabelas no período de datas indicadas nos respectivos campos.
A função vai ler uma tabela e apaga os respectivos registos escolhidos.

http://www.speedyshare.com/files/24624460/Apagar_Dados_Em_Tabelas.mdb

A ideia era colocar o exemplo a ir buscar os dados a apagar a uma CONSULTA, pois assim era possível aplicar outros filtros na mesma consulta.
Obrigado

Bom dia, Assis

Não percebi. A consulta não tem dados, ela mostra dados de tabelas. Ou quer apagar os dados nas tabelas ou pretende que a consulta deixe de mostrar os dados.

Bom domingo

pelo que vi no excelente sub do JPaulo, basta você alterar esta linha;

Set T = db.OpenRecordset("despesas", dbOpenTable) 'Abre a tabela

para esta:

Set T = db.OpenRecordset("ConsultaDespesas") 'Abre consulta

Olá Alexandre

A consulta tem os dados da tabela.

Só que numa consulta podem ser filtrados dados com critérios. Certo?

Imagine que eu queria apagar todos os registos de Electricidade, de 01-01-2010 a 31-12-2010.
Seleccionava de 01-01-2010 a 31-12-2010, selecionava a Electricidade nos critérios.
Mas os registo de Água e outros que tivesse não seriam eliminados mesmo que estando dentro das Datas.
Obrigado

Ola Assis boa noite!

Veja o simples;

http://dl.dropbox.com/u/771097/Apagar%20Dados%20Em%20Tabelas_II.rar

E aqui, funcionou ????

Desculpe JPaulo

Pela demora do retorno.
Perfeito como de costume.

Obrigado