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


3 participantes

    [Resolvido]Vincular todas as tabelas

    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Vincular todas as tabelas Empty [Resolvido]Vincular todas as tabelas

    Mensagem  crysostomo 29/8/2023, 00:55

    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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  JPaulo 29/8/2023, 09:46

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

    Veja o Código: Revincular Tabelas


    .................................................................................
    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]Vincular todas as tabelas Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Vincular todas as tabelas Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Vincular todas as tabelas Folder_announce_new Instruções SQL como utilizar...
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  crysostomo 29/8/2023, 19:14

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  Alvaro Teixeira 30/8/2023, 10:47

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  crysostomo 31/8/2023, 21:44

    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.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  Alvaro Teixeira 1/9/2023, 11:00

    Olá Gilliard,

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

    Abraço a todos
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  crysostomo 1/9/2023, 22:18

    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
    Anexos
    [Resolvido]Vincular todas as tabelas AttachmentVincular as tabelas.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (92 Kb) Baixado 14 vez(es)


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  Alvaro Teixeira 2/9/2023, 00:54

    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
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2695
    Registrado : 23/01/2018

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  crysostomo 2/9/2023, 02:41

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


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  Alvaro Teixeira 4/9/2023, 10:20

    cheers

    Conteúdo patrocinado


    [Resolvido]Vincular todas as tabelas Empty Re: [Resolvido]Vincular todas as tabelas

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2024, 04:30