[AccessD] Create Table of System Objects ** Free Tip **

Lonnie Johnson prodevmg at yahoo.com
Wed Jul 14 11:23:20 CDT 2004


Here is a snippit of code you can put into a module that will create a table of system objects if you would need such a thing.
 
 
Public Sub CreateObjList()
DoCmd.RunSQL "SELECT MSysObjects.DateCreate, MSysObjects.DateUpdate, MSysObjects.Name, GetobjType(MSysObjects.Type) AS ObjectType " _
            & " INTO tblSystemObjects From MSysObjects " _
            & " WHERE (MSysObjects.Type) In (1,5,6,-32768,-32764,-32761);"
End Sub
 
Public Function GetobjType(typeID As Integer)
    Select Case typeID
        Case Is = 1
        GetobjType = "Table"
        Case Is = 5
        GetobjType = "Query"
        Case Is = 6
        GetobjType = "Attached Table"
        Case Is = -32768
        GetobjType = "Form"
        Case Is = -32764
        GetobjType = "Report"
        Case Is = -32761
        GetobjType = "Module"
    End Select
End Function
 
Happy Coding!!!



May God bless you beyond your imagination!
Lonnie Johnson
ProDev, Professional Development of MS Access Databases
Visit me at ==> http://www.prodev.us





 





		
---------------------------------
Do you Yahoo!?
New and Improved Yahoo! Mail - Send 10MB messages!


More information about the AccessD mailing list