Internal Form Design (1 Viewer)

[cable]

Is it possible to access the internal form design? i.e. can I write something that could list the properties of each item on a form.

 

[cable]

Needs a bit of tidying but got this:

On Error Resume Next
Dim db As DATABASE
Dim doc As Document
Dim a As Form
Dim c As Control
Dim p As Property
Dim x As Integer
Set db = CurrentDb
For Each doc In db.Containers("Forms").Documents
    DoCmd.OpenForm doc.Name, acHidden
    Set a = Application.Forms(doc.Name)
    Debug.Print a.Name
    For Each c In a.Controls
        For Each p In c.Properties
            Debug.Print c.Properties("Name") & ">>>" & p.Name & "=" & p.Value
        Next p
    Next c
 
Next doc

 

[cable]

Needs a bit of tidying but got this:

On Error Resume Next
Dim db As DATABASE
Dim doc As Document
Dim a As Form
Dim c As Control
Dim p As Property
Dim x As Integer
Set db = CurrentDb
For Each doc In db.Containers("Forms").Documents
    DoCmd.OpenForm doc.Name, acHidden
    Set a = Application.Forms(doc.Name)
    Debug.Print a.Name
    For Each c In a.Controls
        For Each p In c.Properties
            Debug.Print c.Properties("Name") & ">>>" & p.Name & "=" & p.Value
        Next p
    Next c
 
Next doc