MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4534
    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: Ter 21 Nov 2017, 04:38