Determine Module Type

[DevlinM]

I want to collect information about each module in my DB. I am using the
AccessObject properties to retrieve dates and so forth. However, using the
property "Type" does not return expected results. All modules return as 5.
I want to distinguish a class module from a standard module. Is this
possible?

Thanks

Devlin

 

[Marshall Barton]

I want to collect information about each module in my DB. I am using the
AccessObject properties to retrieve dates and so forth. However, using the
property "Type" does not return expected results. All modules return as 5.
I want to distinguish a class module from a standard module. Is this
possible?

You need to use the module object type property, not the
AccessObject type property.

For Each ao In AllModules
. . .
DoCmd.OpenModule ao.Name
moduletype = Modules(ao.Name).Type
. . .
DoCmd.Close acModule, ao.Name, acSaveNo

 

[DevlinM]

Thank you for your help!

You need to use the module object type property, not the
AccessObject type property.

For Each ao In AllModules
. . .
DoCmd.OpenModule ao.Name
moduletype = Modules(ao.Name).Type
. . .
DoCmd.Close acModule, ao.Name, acSaveNo