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

Guys I don't think 97 supports AllForms, does it?

Susan H.

> 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
>
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
>
>