Try This...
Paste into Standard Module, type "FormProperties" in immediate window, then press "enter".
Sub FormProperties()
On Error GoTo x
Dim objAO As AccessObject
Dim objObject As Object, frmForm As Form, prpProperty As Property
Set objObject = Application.CurrentProject
For Each objAO In objObject.AllForms
DoCmd.OpenForm objAO.Name, acDesign, , , , acHidden
Set frmForm = Forms(objAO.Name)
For Each prpProperty In frmForm.Properties
Debug.Print objAO.Name & "; " & prpProperty.Name & " = " & prpProperty.Value
Next
DoCmd.Close acForm, objAO.Name, acSaveNo
Next
x:
Resume Next
End Sub
Any problems, or further questions, please let me know.
Good Luck!
|