I use this funciton. I have only used it in XP Pro.
It only changes the link. It will NOT add or subtract links.
Function linkmetest()
Rem JetTable = Access table
Call linkme("C:\CLEARWIN\BACKEND.MDB", "AGENCIES")
Call linkme("C:\CLEARWIN\BACKEND.MDB", "CEASEDPUBS")
Call linkme("C:\CLEARWIN\BACKEND.MDB", "CLEAR_DATE_LIST")
Call linkme("C:\CLEARWIN\COA_CANCELBACKEND.MDB", "COA_CANCEL")
Call linkme("C:\CLEARWIN\COA_CANCELBACKEND.MDB", "CPPASSWORD")
Call linkme("C:\CLEARWIN\TRANSFERBACKEND.MDB", "DONE")
Call linkme("C:\CLEARWIN\HISTORY.MDB", "HISTORY")
Call linkme("C:\CLEARWIN\BACKEND.MDB", "MAGINFO")
Call linkme("C:\CLEARWIN\HISTORY.MDB", "ORDSUM")
Call linkme("C:\CLEARWIN\COA_CANCELBACKEND.MDB", "PASSWORD")
End Function
Function linkmelive()
Rem link table to live database.
Call linkme("T:\CLEARWIN\BACKEND.MDB", "AGENCIES")
Call linkme("T:\CLEARWIN\BACKEND.MDB", "CEASEDPUBS")
Call linkme("T:\CLEARWIN\BACKEND.MDB", "CLEAR_DATE_LIST")
Call linkme("T:\CLEARWIN\COA_CANCELBACKEND.MDB", "COA_CANCEL")
Call linkme("T:\CLEARWIN\COA_CANCELBACKEND.MDB", "CPPASSWORD")
Call linkme("T:\CLEARWIN\TRANSFERBACKEND.MDB", "DONE")
Call linkme("T:\ACCESSFILES\HISTORY.MDB", "HISTORY")
Call linkme("T:\CLEARWIN\BACKEND.MDB", "MAGINFO")
Call linkme("T:\ACCESSFILES\HISTORY.MDB", "ORDSUM")
Call linkme("T:\CLEARWIN\COA_CANCELBACKEND.MDB", "PASSWORD")
End Function
Function linkme(strDatabase As String, strNewTable As String)
Dim dbs As Database
Dim tdf As TableDef
Set dbs = CurrentDb()
For Each tdf In dbs.TableDefs
Rem use only the linked tables
If Len(tdf.Connect) > 0 Then
Rem this is a linked table
Rem if this is the name of the table.
Rem then change the database location.
If tdf.NAME = strNewTable Then
tdf.Connect = ";database=" & strDatabase
tdf.RefreshLink
End If
Else
Rem not a connected table
End If
Next tdf
Rem cleanup
Set tdf = Nothing
Set dbs = Nothing
End Function
Scott Burke
