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

Public Sub ListForms()
    Dim i As Integer
    Dim Frm As AccessObject
    For Each Frm In CurrentProject.AllForms
        i = i + 1
        Debug.Print i, Frm.Name
    Next
    Set Frm = Nothing
End Sub


"Those who would sacrifice liberty for security deserve neither." 
-- Benjamin Franklin 

-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of David McAfee
Sent: March 31, 2003 8: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
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com