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

2 participantes

    Importar Tabelas de outro BD

    avatar
    Bruno Alves
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 07/03/2016

    Importar Tabelas de outro BD Empty Importar Tabelas de outro BD

    Mensagem  Bruno Alves 4/1/2017, 03:01

    Prezados.

    Encontrei este código em uma postagem, ele atende a bem. Mas minha dúvida é como faze-lo substituir as tabelas já existentes na base.
    No teste, ele importa, mas cria tabelas com final 1.
    Exemplo: na minha base tenho tabela contatos, quanto ele importa ele cria tabela contatos1. Tem como adapta-lo para substituir as tabelas existentes com o mesmo nome?

    Código.
    Cole num modulo novo este Sub que importa todas as tabelas


    Sub ImportAllTbls(sExtDbPath As String)
    On Error GoTo Error_Handler
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef

    Set db = OpenDatabase(sExtDbPath)

    For Each tdf In db.TableDefs
    If Left(tdf.Name, 4) <> "MSys" Then
    On Error Resume Next
    Access.DoCmd.TransferDatabase acImport, "Microsoft Access", sExtDbPath, _
    acTable, tdf.Name, tdf.Name, False
    End If
    Next tdf
    db.Close

    Set db = Nothing

    Exit Sub

    Error_Handler:
    MsgBox "MS Access has generated the following error" & vbCrLf & vbCrLf & "Error Number: " & _
    Err.Number & vbCrLf & "Error Source: ImportAllTbls" & vbCrLf & "Error Description: " & _
    Err.Description, vbCritical, "An Error has Occured!"
    Exit Sub
    End Sub



    para chamar o Sub num botão

    Call ImportAllTbls("C:\bancoexterno.mdb")
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7700
    Registrado : 15/03/2013

    Importar Tabelas de outro BD Empty Re: Importar Tabelas de outro BD

    Mensagem  Alvaro Teixeira 9/1/2017, 17:56

    Olá, pode verficar primeiro se existe a tabela e apagar.
    Com uma BUSCA aqui no.forum não falta exemplos.
    Abraço

      Data/hora atual: 3/12/2022, 02:19