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 tabela de outro banco

    bondan
    bondan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 30/12/2019

    [Resolvido]Vincular tabela de outro banco Empty [Resolvido]Vincular tabela de outro banco

    Mensagem  bondan 11/2/2020, 17:20

    Salve!
    Tenho um banco de form único somente para fazer alterações e manutenções dos sistemas access da empresa, como reparar bancos dos sistemas por exemplo.
    Preciso criar um botão que chame o Gerenciador de tabelas vinculadas do outro banco.
    Não é vincular o banco de manutenção, mas pelo banco de manutenção editar os vínculos do outro sistema A, B e C.
    A macro ou código vba "DoCmd.RunCommand acCmdLinkedTableManager" abre o gerenciador do próprio banco de manutenção apenas.
    É possível?
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1022
    Registrado : 23/09/2011

    [Resolvido]Vincular tabela de outro banco Empty Re: [Resolvido]Vincular tabela de outro banco

    Mensagem  cleverson_manaus 11/2/2020, 20:41

    boas amigo,


    Dá uma olhada nesse exemplo do grande A. Teixeira, moderador do fórum.


    Abraços,
    Anexos
    [Resolvido]Vincular tabela de outro banco AttachmentAppMulti.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (113 Kb) Baixado 17 vez(es)


    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    bondan
    bondan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 30/12/2019

    [Resolvido]Vincular tabela de outro banco Empty Re: [Resolvido]Vincular tabela de outro banco

    Mensagem  bondan 11/2/2020, 21:35

    Obrigado Cleverson, mas este banco vincula o atual à outro, e o que procuro é vincular um terceiro banco com outros, e não o próprio, mas obrigado.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Vincular tabela de outro banco Empty Re: [Resolvido]Vincular tabela de outro banco

    Mensagem  DamascenoJr. 12/2/2020, 05:21

    Segue o código para adaptação

    Código:
    On Error GoTo trataErro

        Dim objBD As DAO.Database
        Dim tbl As DAO.TableDef
        
        'abrindo o banco que tem tabelas vinculadas para atualização dos vínculos
        Set objBD = OpenDatabase(CaminhoFrontEnd, False, False) ',";PWD=SuaSenhaArquivoFrontEnd")
        
        'passeando pelas tabelas do banco aberto
        For Each tbl In objBD.TableDefs
            'se for uma tabela vinculada
            If Nz(tbl.Connect) <> "" Then
                'atualiza o vínculo
                tbl.Connect = ";DATABASE=" & CaminhoBackEnd '& ";UID=Admin ;PWD=SuaSenhaArquivoBackEnd;"
                tbl.RefreshLink
            End If
        Next

    sair:
        'fechando o banco que foi aberto e tirando-o da memória
        Call objBD.Close: Set objBD = Nothing
        Exit Sub
        
    trataErro:
        Call MsgBox(Err.Description)
        Resume sair

    É uma técnica com grandes probabilidades de erro pois, em rede, o computador que editará os vínculos não garante que o computador que executará o arquivo com tabelas vinculadas enxergará (terá acesso) o arquivo que contém as tabelas. Fica o alerta. Exclamation


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Vincular tabela de outro banco Empty Re: [Resolvido]Vincular tabela de outro banco

    Mensagem  DamascenoJr. 14/2/2020, 20:42

    Bondan, algum avanço?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3845
    Registrado : 22/11/2016

    [Resolvido]Vincular tabela de outro banco Empty Re: [Resolvido]Vincular tabela de outro banco

    Mensagem  DamascenoJr. 18/2/2020, 00:12

    bondan, ainda aguardamos retorno nos seus tópicos. A dica atendeu?


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    bondan
    bondan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 30/12/2019

    [Resolvido]Vincular tabela de outro banco Empty Re: [Resolvido]Vincular tabela de outro banco

    Mensagem  bondan 18/2/2020, 01:41

    Boa noite colega, obrigado pelo retorno...
    Ainda não pude testar, mas amanhã dou continuidade e posto o resultado.
    Muito obrigado.
    bondan
    bondan
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 35
    Registrado : 30/12/2019

    [Resolvido]Vincular tabela de outro banco Empty Re: [Resolvido]Vincular tabela de outro banco

    Mensagem  bondan 18/2/2020, 21:27

    Fiz testes e testes mas não rolou, então vou abandonar a idéia.
    Obrigado pela ajuda.

    Conteúdo patrocinado


    [Resolvido]Vincular tabela de outro banco Empty Re: [Resolvido]Vincular tabela de outro banco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 17:06