[Resolvido]Alteraração de Codigo

Boa noite a tds, tenho um código e gostaria de abreviar ele se possível.

O código que tenho é esse:

Código:

CurrentDb.Execute "DELETE * FROM TBL_0430"
CurrentDb.Execute "DELETE * FROM TBL_01230"
CurrentDb.Execute "DELETE * FROM TBL_02320"
CurrentDb.Execute "DELETE * FROM TBL_040420"
CurrentDb.Execute "DELETE * FROM TBL_045230"
CurrentDb.Execute "DELETE * FROM TBL_C12420"
CurrentDb.Execute "DELETE * FROM TBL_C172420"
CurrentDb.Execute "DELETE * FROM TBL_C12490"

Esse código que postei ref. a uma quantidade pequena de tabela que tenho, ao total o meu banco tem mais de 100 tabelas e gostaria que esse código apagasse todos os campos de tds essas tabelas. A única coisa q meu código esta ficando grande de tanto repetir o comando CurrentDb.Execute "DELETE * FROM tabela".

Poderia adicionar o nome das tabelas em uma tabela..
Carregar um recordset com a mesma, executando um loop e a cada loop alteraria o nome da tabela em uma variável que estaria na instrução CurrenteDb.....

é por ai.


Cumprimentos.

Ha sim.. Poderiamos tambem fazer um procedimento com o For fazendo um loop pelo objetos do Banco de Dados e no Caso tabela executaria a instrução..


Cumprimentos.

Outra coisa.. ia me esquecendo amigão... evite expressões comumente utilizadas em chats.. como "tds", assim manteremos a integridade do fórum quanto a clareza nos textos.

Abraços.

Eis um pequeno exemplo:

http://maximoaccess.forumeiros.com/t13321-deleta-o-conteudo-de-todas-as-tabelas-do-bd#102420

Cumprimentos.