List all objects on a form? (XP)

Topic

New Reply

I really hope there is an easy add-in or something that will do this….is there an easy way to get a list of all objects on a form?

Reply | Quote

Replies

Depends on where you want the list to end up. You can do something like this:

Sub ListControls()
Dim frm As Form
Dim ctl As Control
DoCmd.OpenForm “frmMyForm”, acDesign
Set frm = Forms!frmMyForm
For Each ctl In frm.Controls
Debug.Print ctl.Name
Next ctl
DoCmd.Close acForm, “frmMyForm”
Set ctl = Nothing
Set frm = Nothing
End Sub

This will list all controls in the Immediate window.

Reply | Quote

(Edited by HansV to make URL clickable – see Help 19)

Am I off base here on this one, looking at this explanation, am not sure it is going to list your form objects one by one…or all objects by name in your database…
http://support.microsoft.com/?kbid=210347%5B/url%5D

Reply | Quote

The code from the MSKB article will list all forms, or all reports, etc., not all objects (controls) on an individual form.

Reply | Quote

Many thank yous…was being a bit lazy wasn’t I?

http:// wopr.com

Reply | Quote

Instead of debug.print, what would I use to export the list to, say, a notepad file (for faster coding)?

Reply | Quote

Try this:

Sub ListControls()
Dim frm As Form
Dim ctl As Control
Dim strForm As String
Dim f As Integer
strForm = InputBox(“Enter name of form”)
If strForm = “” Then Exit Sub
f = FreeFile
Open “C:List.txt” For Output As #f
DoCmd.OpenForm strForm, acDesign
Set frm = Forms(strForm)
For Each ctl In frm.Controls
Print #f, ctl.Name
Next ctl
DoCmd.Close acForm, strForm
Close #f
Set ctl = Nothing
Set frm = Nothing
End Sub

Replace C:List.txt with the path and name you prefer.

Reply | Quote

Francois, Hans,
Thank you for your solutions, both work exactly how I need them to. I changed the code a little bit, created a new table, and after For Each, I just used rst.AddNew, creating a list and it got the job done. Thanks.

Reply | Quote

Modify Hans’ code to :

Sub ListControls()
Dim frm As Form
Dim ctl As Control
DoCmd.OpenForm “frmMyForm”, acDesign
Set frm = Forms!frmMyForm
Open “c:testfile.txt” For Output As 1
For Each ctl In frm.Controls
Write #1, ctl.Name
Next ctl
Close #1
DoCmd.Close acForm, “frmMyForm”
Set ctl = Nothing
Set frm = Nothing
End Sub

This will create a file named testfile in the root directory of your c drive. You can open it with Notepad

Reply | Quote