avoid relinking linked tables

[Hobbes29]

I have some code that links tables to a backend, MS Access DB 2007. I am looking for assitance to have the code check to see if the table is already linked, and if it is linked then don't do anything. If The table is not linked, then link the table.

I check for system tables (MSys) and tmp (~) tables and do not link them.

Any assistance is appreciated.

here is the code:

 
numTables = DBEngine.Workspaces(0).OpenDatabase(strPath).TableDefs.count -1
for i = 0 to numTables
    tabName = DBEngine.Workspaces(0).OpenDatabase(strPath).TableDefs(i).Name
 
    if InStr(1, tabName, "msys") = False And _
       InStr(1, tabName, "~") = False Then
 
        lst.AddItem DBEngine.Workspaces(0).OpenDatabase(strPath).TableDefs(i).Name
 
        if CurrentDB.TableDefs(i).Name = "" Then 'Table does not exist in the front end so link it.
            Docmd.TransferDatabase .....etc
        end if
    end if
 
Next

Thanks,
Ken

[HiTechCoach]

I use this code by my friend Crystal (Microsoft Access MVP):

ReLinker: multi-BE, Label Table Description to show Connect info


Boyd Trimmell aka Hi Tech Coach ( HiTechCoach.com free Access stuff)
Microsoft Access MVP 2010
Business Process Management - Accounting/CRM Software Developer
Programming: Nine different ways to do it right, a thousand ways to do it wrong.
Binary--it's as easy as 1-10-11