importar tabelas substituindo as antigas

Olá Bom dia!

Tenho um bd com sistema de backup que utiliza uma macro para exportar tabelas para um bd externo e outra para restaurar essas mesmas tabelas para meu bd.

acontece que quando vou importar as tabelas do bd externo, o sistema nomeia com um numero na frente da tabela importada e preserva a antiga

como faço para apagar a antiga e importar a tabela com seu nome original automaticamente.

abraços

Bom dia,

Para voce conseguir fazer o que deseja, 1º tem que eliminar as tabelas do sua Bd e só depois importar novas tabelas.

utilize seguinte codigo para eliminar tabelas.

DoCmd.DeleteObject acTable, "NomeTabelaQueQuerEliminar"

Repita esse código para as tabelas que deseja, só depois é que pode executar sua macro.

Abraço...

Roberto
Olhe aqui

http://dl.dropbox.com/u/771097/DeletaTabelas.txt

Boa tarde Assis,

Não consigo ver o anexo que você postou, por segurança que está no servidor aqui da empresa.
Se quizere pode enviar para meu email.

erilioaraujo

Consegui Resolver seu problema??

Abraço...  

Roberto

Eu não postei nada, é um link aqui do forum que tem uma maneira de apagar todas as tabelas de uma vez só.

Aqui está ele do Gr Mestre JPaulo

Public Function DeletaTabelas()
'By JPaulo ® Maximo Access
Dim dbs As DAO.Database
Dim i As Integer
Set dbs = CurrentDb
For i = dbs.Relations.Count - 1 To 0 Step -1
dbs.Relations.Delete dbs.Relations(i).Name
Next i
For i = dbs.TableDefs.Count - 1 To 0 Step -1
'não deleta as tabelas de sistema
'nem as tabelas que eu não quero deletar, a tblExemplo1 e a tblExemplo2
If Left(dbs.TableDefs(i).Name, 4) <> "MSys" _
And dbs.TableDefs(i).Name <> "tblExemplo1" _
And dbs.TableDefs(i).Name <> "tblExemplo2" Then
dbs.TableDefs.Delete dbs.TableDefs(i).Name
End If
Next i
Set dbs = Nothing
End Function

Obrigado Gr. Assis,

Fiquei a aprender mais um pouco..

Abraço...

Boa tarde,

Caso seu problema esteja resolvido, não se esqueça de fechar tópico.
O Forum agradece...

Abraço...

Ainda não deu certo

da erro em tempo de execução 3033

mensagem" voce nao ter permissão pra usar o objeto msysnavpaneguruoptoobjects"

ai frise esta linha na função "dbs.Relations.Delete dbs.Relations(i).Name"

Agradeço pela ajuda...

Experimente marcar a Referencia VBA "Microsoft DAO x.x Object Library"

quando tento executar o codigo, retorna o seguinte

"Nome em conflito com modulo ou biblioteca de objetos existente

Bom dia!

Com o comando DROP TABLE (nome da tabela) em uma consulta SQL, consigo exclui-las sem dificuldade, porém tenho tabelas com dua palavras separadas EX. Novos clientes.
Quando tento executar esta instrução sql para delata-la, retorna que o tabela "Novos" não existe, ou seja, faz referencia apenas ao primeiro nome da tabela e por nao encontrar não deleta.

Como resolver este problema...

Resolvido !

So mais uma duvida, como faço para realizar este procedimento para deletar varias tabelas ao mesmo tempo na mesma instrução sql?

Ola Bom dia

Criei um macro que executa várias consultas ao mesmo tempo, todas elas com o commando DROPTABLE.

NA macro, primeiro exclui as tabelas do bd atual, pois DROP TABLE exclui as tabelas incondicionalmente, uma a uma.
Depois na mesma macro, varios comandos de importação de dados para puxar as tabelas do bd externo

Resolvido

Obrigado