MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Exportar Tabela e dados para outro BD

    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Exportar Tabela e dados para outro BD Empty [Resolvido]Exportar Tabela e dados para outro BD

    Mensagem  mduarteteixeira 28/3/2019, 15:25

    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!
    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10614
    Registrado : 04/11/2009

    [Resolvido]Exportar Tabela e dados para outro BD Empty Re: [Resolvido]Exportar Tabela e dados para outro BD

    Mensagem  JPaulo 28/3/2019, 17:08

    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


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Exportar Tabela e dados para outro BD Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Exportar Tabela e dados para outro BD Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Exportar Tabela e dados para outro BD Folder_announce_new Instruções SQL como utilizar...
    mduarteteixeira
    mduarteteixeira
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 99
    Registrado : 15/07/2014

    [Resolvido]Exportar Tabela e dados para outro BD Empty Re: [Resolvido]Exportar Tabela e dados para outro BD

    Mensagem  mduarteteixeira 28/3/2019, 18:06

    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.

      Data/hora atual: 14/6/2021, 06:56