[Resolvido]Importação de tabela com mesmo nome de tbl já existente substituindo a antiga

Pessoal,

tem como fazer uma macro que importe uma tabela de um BD para outro e ao fazer isso substitua a já existente? pergunto isso porque quando eu faço a importação via "arquivo/obter dados externos/importar..." a tabela importada não substitui a existente, mas ela é simplesmente acrescentada ao BD que está recebendo a tabela com o nº "1", "2", etc em frente ao nome...

thanks

Leandro

Talvez seja melhor que seja assim mesmo, pois se ocorrer algum sinistro durante a operação, você não perde a tabela que já tem. Mas você fazer isso via código, deletando a tabela já existente antes de importar a nova.

Ok Criquio, e como faz o código? please...

ao invés de deletá-la, teria como alterar o nome da tab existente e renomeá-la, por exemplo, acrescentando o dia do mês, via código? como faz?

Leandro

Tente o seguinte em uma cópia do bd:

DoCmd.Rename "NomeDaTabela_" & Format(Now, "ddmmyyyy_hhnnss"), acTable, "NomeDaTabela"
DoCmd.TransferDatabase acImport, "Microsoft Access", "Caminho completo do bd", acTable, "NomeTabela", "NomeDaCópia"

A primeira linha renomeia a tabela, aonde:

DoCmd.Rename - Chamada para renomear um objeto;
"NomeDaTabela_" & Format(Now, "ddmmyyyy_hhnnss") - Novo nome para a tabela;
acTable - Define tabela como o tipo de objeto;
"NomeDaTabela" - Nome original da tabela.

A segunda linha importa a tabela, aonde:

DoCmd.TransferDatabase - Define a ação de transferência entre bancos de dados;
acImport - Define a ação Importar;
"Microsoft Access" - Define o tipo de banco de dados;
"Caminho completo do bd" - Caminho do bd de origem. Exemplo: "C:\Gerenciamento\Backend.accdb";
acTable - Define o tipo de objeto, no caso, uma tabela;
"NomeTabela" - Nome da tabela no bd de origem;
"NomeDaCópia" - Nome para a tabela no bd de destino.

beleza!

vou testar e provavelmente amanhã te dou um retorno.

agradeço dese já

Leandro

'Delete a tabela assim
DoCmd.SetWarnings False
DoCmd.DeleteObject acTable, "NomeDaTabela" 'Deleta a tabela

'E Assim você importa uma tabela (Dica do Criquio)
DoCmd.TransferDatabase acImport, "Microsoft Access", "Caminho completo do bd",acTable, "NomeTabela", "NomeDaCópia"

DoCmd.SetWarnings True

Galera, até consegui, porém, o acces não deixa eu deletar a tabela antiga porque ela participa de um ou mais relacionamento...

Tem como importar somente os dados da tabela nova para a tabela antiga (substituição de dados)?

um abraço

Leandro

Se essa tabela faz parte de um relacionamento, seria interessante analisar primeiramente esses relacionamentos. Pode ser que tenha filho ficando órfão aí ou pai perdendo os filhos. Vamos analisar essa estrutura aí antes?

Como não houve retorno, o tópico passa a resolvido. Qualquer coisa reabra, por favor.