[AccessD] How do I list all forms in an ADP (no MSysObjects)

Thanks :)

for the archives (from Help):

Sub AllForms()
    Dim obj As AccessObject, dbs As Object
    Set dbs = Application.CurrentProject
    ' Search for open AccessObject objects in AllForms collection.
    For Each obj In dbs.AllForms
        If obj.IsLoaded = TRUE then
            ' Print name of obj.
            Debug.Print obj.Name
        End If
    Next obj
End Sub



-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Charlotte
Foust
Sent: Monday, March 31, 2003 5:46 PM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] How do I list all forms in an ADP (no
MSysObjects)


Loop through the CurrentProject.AllForms collection.

Charlotte Foust

-----Original Message-----
From: David McAfee [mailto:DMcAfee at haascnc.com] 
Sent: Monday, March 31, 2003 5:41 PM
To: 'accessd at databaseadvisors.com'
Subject: [AccessD] How do I list all forms in an ADP (no MSysObjects)


In an Access 97 MDB, I can use the following SQL statement to list all
forms in an MDB:

SELECT MSysobjects.Name
FROM MSysobjects
WHERE (((MSysobjects.Type)= -32768))
ORDER BY MSysobjects.Name;

I know there are no local tables in an ADP, but somehow, somewhere,
Access must be keeping this information. Is there an equivalent way of
doing the same (either SQL or VBA) in an ADP?


TIA

David McAfee
-------------- next part --------------
A non-text attachment was scrubbed...
Name: not available
Type: application/ms-tnef
Size: 2661 bytes
Desc: not available
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030331/e6ef5f01/attachment-0001.bin>