[AccessD] enumerating all properties in all forms

Susan Harkins ssharkins at bellsouth.net
Thu Feb 17 13:43:45 CST 2005


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




More information about the AccessD mailing list