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]Vincular vários bancos com várias tabelas

    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi 10/7/2019, 14:07

    Bom dia a todos,

    Eu peguei aqui no fórum um exemplo do JPaulo que funciona muito bem, eu tentei mudar o código para vincular vários bancos com várias tabelas dentro de cada banco, mas sem sucesso.
    Alguém tem um exemplo ou pedaço de código que eu possa usar para aprender a fazer esse vínculo?
    Obrigado !

    Este é o código que o JPaulo usou para tirar a dúvida de um colega aqui do fórum. https://www.maximoaccess.com/t422-resolvidovincular-revincular-back-end

    Código:
    Private Sub Form_Open(Cancel As Integer)
    Call ReVincularTabelas("C:\BackEnd.mdb")
    End Sub

    Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
    For Each Tdf In Tdfs
    If Tdf.SourceTableName <> "" Then
    Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
    Tdf.RefreshLink
    End If
    Next
    End Sub
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  ahteixeira 10/7/2019, 17:45

    Olá Leandro,

    Estou no celular, mas tente alterando o código de:
    Código:
    set dbs = currentdb

    por:
    Código:
    set dbs = DBEngine.OpenDatabase(CaminhoDasTabelas)

    Depois será fazer um Call por cada ficheiro para ligar.
    (Não testado)

    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi 10/7/2019, 18:08

    Olá ahteixeira,

    Vou tentar fazer isso.

    Obrigado!
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3711
    Registrado : 04/04/2010

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  Avelino Sampaio 10/7/2019, 18:18

    Olá!

    veja se o meu artigo abaixo também te ajuda:

    usandoaccess.com.br/blog/vincular-varios-backend.asp?id=1#inicio
    Copie e cole o endereço no seu navegador

    Sucesso!
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi 10/7/2019, 20:08

    Olá Avelino, muito obrigado por responder.


    Com a sua ajuda e a ajuda do ahteixeira eu estou montando uma função que pegue o nome do banco e jogue numa variável para fazer o Call. Eu tenho 37 bancos e cada banco tem mais de 5 tabelas em cada.
    Se eu conseguir adaptar o seu código e o código do ahteixeira eu reporto aqui.

    Deixo a minha sincera gratidão desde já.

    Abs

    Leandro Baldocchi
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  ahteixeira 19/8/2019, 15:04

    Olá Leandro,

    Como ficou a situação? Já Resolveu?

    Veja se ajuda:
    https://www.maximoaccess.com/t27608-exemplo-de-sistema-multi-empresa

    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi 19/8/2019, 15:10

    bom dia ahteixeira,

    Desculpe a falta de resposta.

    Eu consegui fazer com sua dica set dbs = DBEngine.OpenDatabase(CaminhoDasTabelas)

    Estou terminando o projeto inteiro e vou disponibilizar aqui no site.


    Obrigado mais uma vez!
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  ahteixeira 19/8/2019, 15:31

    Olá Leandro,

    Uma vez que ficou esclarecido, não se esqueça de dar o tópico como Resolvido, veja como fazer:
    https://www.maximoaccess.com/t860-resolucao-de-topicos

    Quanto ao exemplo será bem-vindo, os membros agradecem.

    Abraço
    baldocchi
    baldocchi
    Intermediário
    Intermediário

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 125
    Registrado : 03/11/2014

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  baldocchi 19/8/2019, 15:35

    Obrigado!!!!


    Abraços fraternos
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular vários bancos com várias tabelas Empty Re: [Resolvido]Vincular vários bancos com várias tabelas

    Mensagem  ahteixeira 19/8/2019, 15:45

    cheers

      Data/hora atual: 24/7/2021, 09:44