Excluir tabelas via código

Bom dia!

Tenho uma sistema de backup onde uma macro chamada "exporta" envia as tabelas para um bd externo chamado database.
outra macro chamada "restaura" importa as tabelas deste bd externo para o o meu bd

Acontece que quando faço a importação das tabelas a macro insere novas tabelas no painel de navegação acrescido do numero1 e deixa la as antigas.

pergunta; como faço para importar as tabelas, mas antes deletar as já existentes no painel de navegação

Olá Erilio, mesmo sendo advertido nesse tópico: http://maximoaccess.forumeiros.com/t19579-colocar-senha-em-funcao-de-bloqueio-de-tecla-shift
sobre apenas letras maiúsculas nos títulos/mensagens, você ainda insiste em escrever apenas em maiúscula nos títulos!

Peço que respeite as regras do fórum para assim temos sempre um bom relacionamento.

Sua reputação no Fórum poderá sofrer decréscimo na próxima vez.

Peço por gentileza corrija seu título!

Título corrigido para se adequar as regras.

obrigado pela paciencia.

nao acontecerá de novo

Erilio

Aqui no forum

https://dl.dropboxusercontent.com/u/771097/DeletaTabelas.txt

Ola Bom dia!
tentei colocar num botão de comando mas não deu certo

deixei apenas o código como esta e apliquei ao avento ao clicar do botão no formulário.

ta dando este erro no código: dbs.Relations.Delete dbs.Relations(i).Name  (você não tem permissões)
msysnavpanegrouptoobject

Parece ser algo com relação a permissão para excluir relacionamentos.

Aguardo resposta

Boa noite,
Para excluir uma tabela via vba
Use esta função:

Public Function DelTabs(Tabela)
DoCmd.Close acTable, Tabela
'Apaga a tabela se ela existir
If Not IsNull(DLookup("Name", "MSysObjects", "Name='" & Tabela & "' And Type In (1,4,6)")) Then
DoCmd.DeleteObject acTable, Tabela
End If
End Function


Para chamar a função use:

Call DelTabs("Nome da tabela a ser excluida")