Object List (1 Viewer)

[lessthanme5]

Hi,

I have been trying to list all of the objects in my database in a single form.

I have come across this piece of code which lists the reports, can anyone surgest how I can change it to wiew tables?

SELECT Name FROM msysobjects WHERE (((msysobjects.Type)=-32764));

 

[selenau837]

Here is one I found in my Access Bible.

Public Sub ListObjects()
Dim aob as AccessObject

with CurrentData
   Debug.Print "Tables"
   For Each aob in .AllTables
       Debug.Print " " & aob.name
next aob

end with

Not sure if that is what you need, but there is one way.