![Alexandre Neves](https://2img.net/u/3011/16/08/19/avatars/1-22.png)
Alexandre Neves- Moderador Global
![Moderador Global Moderador Global](https://i.servimg.com/u/f69/14/49/91/69/pdt_3_10.gif)
- Respeito às regras :
![Respeito às Regras 100% Respeito às Regras 100%](https://i.servimg.com/u/f76/11/66/91/15/11101010.png)
Sexo : ![Masculino Masculino](https://2img.net/i/fa/subsilver/icon_minigender_male.gif)
Localização : ![Portugal Portugal](https://i.servimg.com/u/f69/14/49/91/69/pt10.gif)
Mensagens : 8464
Registrado : 05/11/2009
Alexandre Neves 17/7/2013, 20: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