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


2 participantes

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

    avatar
    Josué Carvalho
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Josué Carvalho 22/10/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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Alvaro Teixeira 9/3/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: 29/3/2024, 07:38