[Resolvido]Vincular todas as tabelas

Boa noite. Galera eu ja peguei vários exemplos aqui e externo já criei um monte e não estou conseguindo vincular todas as tabelas.
So consigo vincular uma aqui e muito menos com senha mas essa não tem como fazer para todas, bom eu já não estou conseguindo.

Código:

[b]Sub VincularTodasAsTabelas()
  
    Dim db As DAO.Database
    Dim tblDef As DAO.TableDef
    
    
    Set db = CurrentDb
    
  
    For Each tblDef In db.TableDefs
      
        If Not (tblDef.Name Like "MSys*" Or tblDef.Attributes = dbSystemObject Or tblDef.Attributes = dbAttachedTable) Then
          
            DoCmd.TransferDatabase acLink, "Microsoft Access", _
                "C:\ServiçoSocial_(EM_TESTE)\Estrutura\dB Serviço Judicial", acTable, tblDef.Name, tblDef.Name, False
        End If
    Next tblDef
    
    
    Set db = Nothing
End Sub


[/b]

Meu office é 2019

Na minha assinatura "102 Códigos VBA Gratuitos..."

Veja o Código: Revincular Tabelas

Boa tarde JPaulo, já peguei seu exemplo e não deu certo. As referencias ja estão marcadas

Olá a todos,

Gilliard, é muito vago "...não deu certo", deve dar mais detalhes do erro para o podermos ajudar.
Tenho um exemplo que faz isso, veja se ajuda:
https://www.maximoaccess.com/t27608-exemplo-de-sistema-multi-empresa

Caso não consiga, informe o que está acontecer e o que pretende.
Abraço a todos

Com essa tabela de Nome de utilizador ela dar certa, mas tendendo tirar a parte NomedoUtilizador para que possa vincular direto.
Eu fiz uma modificação aqui, mas ela só está vinculando da MSys.

Olá Gilliard,

Será melhor mostrar o código e indique se dá erro.

Abraço a todos

Fiz um from Teste.
Coloquei no disco C com a caminho absoluto porque tem uns sistemas que se eu colocar no curentPatch ele me pablamo

Olá Gilliard,

No ficheiro que partilhou, numa rapida analise, apenas vi o exemplo que partilhei.
Não consegui ver onde alterou de current.path para c:\...

Pode explicar melhor?

Abraço

Consegui Resolver graças a Deus, e dedicação de vocês.