How can we know form's name in database

  • Thread starter Thread starter Guest
  • Start date Start date
A Google groups search for:
"microsoft public access" VBA "list of forms"
will turn up a variety of solutions.
However, you may first want to check out the Documenter. Click Tools >
Analyze > Documenter. Click the Forms tab, click Select All, click the
Options button, and select the details you wish to see on the printout.
 
SELECT MSysObjects.Name AS FormName
FROM MSysObjects
WHERE (((MSysObjects.Type)=-32768))
ORDER BY MSysObjects.Name;
 
Jerry,

I assume the MSysObjects.Type = 21768 is for forms. What would tables,
reports, queries and macros type be

Thanks
 
Another alternative is:

Public Sub ListForms()
On Error GoTo Err_Label
Dim db As DAO.Database
Dim doc As Document
Dim con As Container

Set db = CurrentDb
For Each doc In db.Containers("Forms").Documents
Debug.Print doc.Name
Next doc
Exit_Label:
On Error Resume Next
db.Close
Set db = Nothing
Exit Sub
Err_Label:
MsgBox Err.Description
Resume Exit_Label

End Sub
 
He's some SQL that captures most everything:

SELECT
IIf([MSysObjects].[Type]=1,'TABLE',
IIf([MSysObjects].[Type]=5,'QUERY',
IIf([MSysObjects].[Type]=-32768,'FORM',
IIf([MSysObjects].[Type]=-32764,'REPORT',
IIf([MSysObjects].[Type]=-32766,'MACRO',
IIf([MSysObjects].[Type]=-32761,'MODULE',
IIf([MSysObjects].[Type]=-32756,'PAGE',
IIf([MSysObjects].[Type]=8,'RELATIONSHIPS',
IIf([MSysObjects].[Type]=6,'TABLE LINKED','Unknown')))))))))
AS ObjectType,
MSysObjects.Name,
MSysObjects.Type
FROM MSysObjects
WHERE (((MSysObjects.Name) Not Like "~*"
And (MSysObjects.Name) Not Like "Msys*")
AND ((MSysObjects.Type) Not In (2,3)))
ORDER BY
IIf([MSysObjects].[Type]=1,'TABLE',
IIf([MSysObjects].[Type]=5,'QUERY',
IIf([MSysObjects].[Type]=-32768,'FORM',
IIf([MSysObjects].[Type]=-32764,'REPORT',
IIf([MSysObjects].[Type]=-32766,'MACRO',
IIf([MSysObjects].[Type]=-32761,'MODULE',
IIf([MSysObjects].[Type]=-32756,'PAGE',
IIf([MSysObjects].[Type]=8,'RELATIONSHIPS',
IIf([MSysObjects].[Type]=6,'TABLE LINKED','Unknown'))))))))),
MSysObjects.Name;
 
Thanks for all answer.These answers are advance technique for me Thankyou so
much

"Bill Edwards" เขียน:
 
Back
Top