Alexandre Neves- Moderador Global
- Respeito às regras :
Sexo : 
Localização : 
Mensagens : 8498
Registrado : 05/11/2009
Alexandre Neves Qua 17 Jul - 15:03
Boa tarde, leindorf, e bem-vindo ao fórum
- Não escreva tudo em maiúsculas, significa gritar
crie um procedimento, cole o código seguinte e execute-o
Dim Tdf As dao.TableDef
For Each Tdf In Currentdb.TableDefs
If dcount("*",Tdf.name)=0 Then
currentdb.execute "DROP TABLE " & tdf.name
End If
Next
MsgBox "Todas as tabelas sem registos foram eliminadas."
.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo
Início
