MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido](Re)Vinculação de tabelas por VBA

    Compartilhe

    Josué Carvalho
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 06/10/2015

    [Resolvido](Re)Vinculação de tabelas por VBA

    Mensagem  Josué Carvalho em Qui 22 Out 2015, 10:51

    Consultei algumas respostas deste fórum para fazer o que preciso, mas ainda não consegui. Então novamente recorro às mentes iluminadas (rs).

    Para uma dada aplicação, estabeleci o seguinte critério:
    AplicProj.aacdb - meu projeto com formulários, consultas, relatórios e módulos
    AplicParam.accdb - Arquivo com tabelas que são atualizadas apenas pela matriz.
    AplicDados.accdb - Arquivo com tabelas alimentadas pelas filiais.

    Desta forma, qdo preciso atualizar o projeto ou dados da matriz, posso enviar os arquivos às filiais que estes não sobreporão as informações que existem apenas lá (a principio).

    Outro detalhe é que para cada filial ou usuário, o caminho para encontrar o banco de dados muda. Então, sempre que atualizo o AplicProj (que busca as tabelas por vinculo) ou envio para nova filial, a vinculação precisa ser refeita.

    Eu necessito automatizar esse procedimento de vinculação das tabelas.

    Para isto, criei uma tabela com os seguintes campos:
    Tabela - Tabela do projeto a ser vinculada
    Arquivo - Em que arquivo está fisicamente a tabela
    Caminho - Onde se encontra esse arquivo.


    Uso um botão para acionar a rotina abaixo, que dá erro:

    Código:


    Private Sub btn_Atualiza_Click()
    Dim Reg As Recordset
    Dim tdf As TableDef
    Dim vConexao As String

    Set Reg = Me.Recordset

    Reg.MoveFirst                     '*** Acusa erro aqui!

    Do While Not Reg.EOF
        With Reg
                .Flag2 = verdadeiro
                tdf.Name = Tabela
                vConexao = "MS Access;DATABASE=" & Caminho & "\" & Arquivo

                tdf.Connect = vConexao
                tdf.RefreshLink                  
                .MoveNext
        End With
    Loop

    Set rst = Nothing
    End Sub

    Alguém pode me ajudar

    ahteixeira
    Moderador
    Moderador

    Respeito às Regras 100%

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

    Re: [Resolvido](Re)Vinculação de tabelas por VBA

    Mensagem  ahteixeira em Qua 09 Mar 2016, 11:07

    Olá Josué Carvalho,

    Já faz um tempo que tem este tópico, não sei se já resolveu, caso ainda esteja pendente:

    1) Quando faz a distribuição para as filiais as ligações (vinculos) que necessita de ser reconfiguradas é no AplicProj.aacdb?
    2) Os ficheiros distribuídos (são colocados todos na mesma pasta?

    Abraço


      Data/hora atual: Sex 09 Dez 2016, 11:32