Enumerate controls and their properties for all forms

[John_G]

Hi All -



How can I enumerate all controls on all the forms and reports in my database, without having to open them?

This code:

Sub test()
  Dim frm As Form, ctl As Control, obj As Object
  For Each obj In CurrentProject.AllForms
    Debug.Print obj.Name
    For Each ctl In obj
    Next
  Next
  
End Sub

works fine to enumerate the forms/reports and their properties, e.g. the name, but when I try to get to the controls, the highlighted line generates the error 438, "Object doesn't support this property or method."

I tried using frm instead of obj in the For each Obj line, but that resulted in a "Type Mismatch" error.

I want to add the controls information to a database I have that lists all object references and cross references in an external (connected) database, for documentation (and cleanup of unused stuff).

Thanks

[CJ_London]

allforms is not a collection of form objects which is why you are having a problem

you can loop through allforms to find form names then to loop through each form for the controls, you have to open in design view

see this link for an example

https://bytes.com/topic/access/answe...ach-form-found

Have you not considered using the documenter?

[orange]

JohnG,

I had a post a few years back that may be of some help. It creates a table with the info on each run.
https://www.accessforums.net/access/...tml#post154208

It's been a long time since I used it, but it helped a poster at the time.

I'm sure I have referenced it with someone else, but can't find the post at the moment.

Good luck.


Update:
JohnG -- I found the related post. This user was dealing with specific property, but the code could be adjusted.

[ssanfu]

John,

I wanted to do the same thing and started trying to document the form/report/control sources. It is still pretty rough, but you are welcome to use/modify/whatever....

I want to be able to get the SQL in list/combo boxes. Don't think I am there yet - I was sidetracked and forgot where I left off.

Import the objects into a dB, open the form and push the buttons.

Hope it helps......