print list of forms

S

Sprinks

You can use the following to print them to the Debug window (Ctrl-G):

Dim db As Database
Dim con As Container
Dim doc As Document

Set db = CurrentDb()
Set con = db.Containers("Forms")

For Each doc In con.Documents
Debug.Print doc.Name
Next doc

Sprinks
 
B

Bill Edwards

You could create a report and set it's recordsource to:

SELECT [Name] FROM MSysObjects WHERE [Type]= -32768;
 
S

Sprinks

Better yet, Bill. Thanks.

Bill Edwards said:
You could create a report and set it's recordsource to:

SELECT [Name] FROM MSysObjects WHERE [Type]= -32768;

smk23 said:
Is there a way to print a list of all forms in an app?

Thanks!
 
Top