Notifications
Clear all

Relink Access Table Automatically

2 Posts
2 Usuários
0 Reactions
1,339 Visualizações
(@miguexcel)
Posts: 167
Estimable Member
Topic starter
 

Olá,

Tenho uma questão que possivelmente alguém neste fórum me poderá ajudar.

Tenho um arquivo principal access com algumas tabelas ligadas a outro arquivo access (Link Table). No entanto, este arquivo principal é utilizado por vários utilizadores pelo que necessito que o link das tabelas seja atualizado automaticamente devido caminhos de rede diferentes de utilizador para utilizador.

Existe algum código capaz de o fazer?

Para dificultar mais ainda, é possível fazer isto através de VBA Excel sem que os utilizadores tenham que abrir o access?

Obrigado.

 
Postado : 17/04/2017 5:10 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Creio que teria um melhor retorno em um fórum especifico de Access.
Quando diz "Relink" acredito que refira-se as Tabelas Vinculada.
Se assim for a rotina abaixo efetua o vinculo, porem e necessário informar a caminho do banco/tabelas

Public Sub ReVincularTabelas(CaminhoDasTabelas As String)
    Dim Dbs As Database
    Dim Tdf As TableDef
    Dim Tdfs As TableDefs
    Set Dbs = CurrentDb
    Set Tdfs = Dbs.TableDefs
       For Each Tdf In Tdfs
        If Tdf.SourceTableName <> "" Then
            Tdf.Connect = ";DATABASE=" & CaminhoDasTabelas
            Tdf.RefreshLink
        End If
    Next
End Sub

Pode ser chamado atraves do evento open de um formulario (por exemplo)

Private Sub Form_Open(Cancel As Integer)
Call ReVincularTabelas("C:BackEnd.mdb")
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 17/04/2017 9:32 am