Access link table from different database with vba

yussi ariefiyono — Thu, 08 Apr 2010 07:10:48 +0000

Problem:
you have lots of database with link table in it, and in one time some of path are changed.. rather than change them manually, i create function that can do that for me

Solution:
In this function you can specify the link you want to find and replace it with your new link. it save me lots of time..

Function RelinkTable(setDB As String, FINDtext As String, REPLACEtext As String)

Dim dbs As Database

Dim Tdf As TableDef

Dim Tdfs As TableDefs

Set dbs = OpenDatabase(setDB)

Set Tdfs = dbs.TableDefs

‘Loop through the tables collection

For Each Tdf In Tdfs

If Tdf.SourceTableName <> “” And Tdf.Connect = “;DATABASE=” & FINDtext Then ‘if its the linktable

Tdf.Connect = “;DATABASE=” & REPLACEtext ‘Set the new source

Tdf.RefreshLink ‘Refresh the link

End If

Next ‘Goto next table

Set dbs = Nothing

Set Tdfs = Nothing

End Function

UC's Corner » link table

Access link table from different database with vba