check if a table is linked

[Luis]

Hello.
I'm trying to export all tables of a database to a new database. This task
needs to run everyday.
The issue here is that i don't want to export linked tables.

How can i check if a table is linked or not?

Thanks,

Luis

 

[Douglas J. Steele]

You can check whether its Connect property is set.

Dim dbCurr As DAO.Database
Dim tdfCurr As DAO.TableDef

Set dbCurr = CurrentDb()
For Each tdfCurr In dbCurr.TableDefs
If Len(tdfCurr.Connect) > 0 Then
Debug.Print "Table " & tdfCurr.Name & " is linked."
Else
Debug.Print "Table " & tdfCurr.Name & " is not linked."
End If
Next tdfCurr

Another way would be to look it up in the MSysObjects table:

Function IsLinked(TableName As String) As Boolean

IsLinked = Nz(DLookup("Type", "MSysObjects", _
"Name = '" & TableName & "'"), 0) <> 1

End Function

(Non-linked tables have a type of 1, tables linked using ODBC have a type of
4 and all other linked tables have a type of 6)

 

[dymondjack]

http://www.mvps.org/access/tables/tbl0009.htm

This relinks tables for you, somewhere in there it checks to see if it's a
linked table. If you want to sift through it to find that code feel free...
the answers in there.

Or you can wait for a more direct answer

hth


--
Jack Leach
www.tristatemachine.com

- "First, get your information. Then, you can distort it at your leisure."
- Mark Twain