Sub External_Change_Tracker()

Const MyTable = "tbl__ChangeTracker"

'

Dim dst As DAO.Database

Dim MyNewFile As String

Dim src As DAO.Database

Dim tdf As DAO.TableDef

'

On Error GoTo err_sub

'

' create new db

MyNewFile = CurrentProject.Path & "\Change_Tracker.mdb"

Set dst = CreateDatabase(MyNewFile, dbLangGeneral)

' copy the tracking table

DoCmd.CopyObject dst.Name, MyTable, acTable, MyTable

' drop local tracking table

DoCmd.DeleteObject acTable, MyTable

' link to table in external file

Set src = CurrentDb

Set tdf = src.CreateTableDef(MyTable)

With tdf

.Connect = ";DATABASE=" & dst.Name

.SourceTableName = MyTable

End With

src.TableDefs.Append tdf

exit_sub:

Exit Sub

'

err_sub:

MsgBox Err.Description, vbCritical, "Error # " & Err.Number

Resume exit_sub

'

End Sub