ACC2000: ActiveX Data Objects (ADO) Includes Queries and Views in the Tables Collection

• ACCESS TABLE
• SYSTEM TABLE
• SYSTEM VIEW
• TABLE
• VIEW

Sub FindOnlyTables()

   Dim cat As New ADOX.Catalog
   Dim tbl As ADOX.Table

   cat.ActiveConnection = CurrentProject.Connection

   For Each tbl In cat.Tables
      If tbl.Type = "TABLE" Then
         If tbl.Name <> "dtproperties" Then
            Debug.Print tbl.Name
         End If
      End If
   Next tbl

End Sub
				

Steps To Reproduce Behavior

1. Open the sample database Northwind.mdb or the sample Access project NorthwindCS.adp.
2. Insert a new module.
3. On the Tools menu, click References, and select the following references if they are not already selected (checked):
   • Microsoft ActiveX Data Objects 2.1 Library
   • Microsoft ADO Ext. 2.1 for DDL and Security
   
   
   
   
4. Type the following ADO code:

   Sub FindTables()
   
      Dim cat As New ADOX.Catalog
      Dim tbl As ADOX.Table
   
      cat.ActiveConnection = CurrentProject.Connection
   
      For Each tbl In cat.Tables
         Debug.Print tbl.Name
      Next tbl
   
   End Sub
   					

5. Type the following line in the Immediate window, and then press ENTER:

   FindTables