BIGmiralli Frequent Poster
Joined: 17 Apr 2007 Posts: 38 Location: Boston, Massachusetts
|
Posted: Fri May 23, 2008 1:03 pm Post subject: Relink Tables in Code |
|
|
Ever had to relink tables as you've moved a database. Want users to map whatever drive they like. Let users store a database where they want and then ask for the location and pass it as a string to this sub and it will re-link all your linked tables
This bit of code can be pasted straight into a module and used from there.
Code: |
Public Sub RelinkTables(NewPathname As String)
'RelinkTables...Just as the name suggests pass a path to a database to this sub
'eg RelinkTables("c:\windows\test.mdb")
'and it will go through all the tables in your
'database and link them to the new location
Dim Dbs As Database
Dim Tdf As TableDef
Dim Tdfs As TableDefs
Set Dbs = CurrentDb
Set Tdfs = Dbs.TableDefs
'Loop through the tables collection
For Each Tdf In Tdfs
If Tdf.SourceTableName <> "" Then 'If the table source is other than a base table
Tdf.Connect = ";DATABASE=" & NewPathname 'Set the new source
Tdf.RefreshLink 'Refresh the link
End If
Next 'Goto next table
End Sub |
________
Compact |
|