[AccessD] enumerating all properties in all forms

Is it because none of the forms is open?

> -----Original Message-----
> From:	accessd-bounces at databaseadvisors.com
> [SMTP:accessd-bounces at databaseadvisors.com] On Behalf Of Susan Harkins
> Sent:	Thursday, February 17, 2005 2:44 PM
> To:	'Access Developers discussion and problem solving'
> Subject:	[AccessD] enumerating all properties in all forms
> 
> The following procedure seems to totally skip the second For Each loop. No
> error, it just skips it, as if there are no properties in the Properties
> collection, which may be the case. I realize we're dealing with different
> collections and I may not be referencing things right. Any help?
>  
> Thanks!
> Susan H. 
>  
>  
> Public Function EnumAllFormProp()
>   'Print the name and setting for
>   'each property in every form.
>   Dim obj As Access.AccessObject
>   Dim prp As Access.AccessObjectProperty
>   For Each obj In CurrentProject.AllForms
>     Debug.Print obj.Name
>     For Each prp In obj.Properties
>       Debug.Print prp.Name
>       Debug.Print prp.Value
>     Next
>   Next
> End Function
> 
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com