Iterating through tables

J

John

Hi

I am trying to iterate through tables using below code but the problem is it
ignores linked tables. How can I also include linked tables?

Many Thanks

Regards


Dim Tbl As TableDef

For Each Tbl In CurrentDb.TableDefs
If Tbl.Attributes = 0 Then 'Ignores System Tables
Call UpsizingCheck(Tbl.Name)
End If
Next
 
A

Arvin Meyer MVP

I don't see why it would ignore linked tables. I have similar code in my
FieldDescriptions code that works fine on linked tables:

http://www.datastrat.com/Download/FieldDescription2K.zip

Make sure that you reference DAO when using TableDefs:

Dim Tbl As DAO.TableDef

Also try this for the Attributes line:

If (Tbl.Attributes And dbSystemObject) = 0 Then
 
Top