[Resolvido]Exportar Tabela e dados para outro BD

Senhores (as),

Boa tarde!

Fiz algumas buscas, localizei aqui no fórum e estou tentando utilizar o seguinte código:

Private Sub Comando72_Click()

DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Users\m123438\Desktop\dsadasdas.accdb", acTable, "LOG_acessos", "LOG_acessos_2019"

End Sub

Eu quero que o método transfira a tabela e o conteúdo dela para este dsadasdas.accdb, contudo, com este comando, clicando no botão ele cria uma nova tabela (LOG_acessos_2019) no BD de origem.

O que está errado aí ou como posso fazer essa transferência de outra maneira via VBA?


Já grato pela atenção de todos!

Olá;

Teste por favor;

Código:

Sub ExportaTabela()
Dim db As DAO.Database
    'vamos abrir o banco externo
    Set db = OpenDatabase("C:\Pasta\SeuBancoExterno.accdb")
    'apagar a tabela do banco externo se existir
    'usamos o on error resume next, porque se a tabela não existir iria dar erro
    On Error Resume Next
    db.TableDefs.Delete ("temp")
    'transferimos a nossa tabela para o banco externo
    DoCmd.TransferDatabase acExport, "Microsoft Access", "C:\Pasta\SeuBancoExterno.accdb", acTable, "NomeSuaTabelaLocal", "NomeSuaTabelaExterna", False
    'fechamos a coneção ao banco externo
    db.Close
End Sub

Olá JPaulo,


Acabei resolvendo a questão. o caminho do banco estava errado.

Contudo, ia justamente perguntar de uma forma de deletar no mesmo código.

Vou testar a aplicação disto num botão.