[AccessD] Iterating Controls

You're welcome, glad I could help.

Chris Mackin
www.denverdb.com
Denver Database Consulting, LLC


-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com]On Behalf Of Arthur Fuller
Sent: Sunday, March 09, 2003 10:01 AM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Iterating Controls


Beauty. Thanks for that!

-----Original Message-----
From: accessd-admin at databaseadvisors.com
[mailto:accessd-admin at databaseadvisors.com] On Behalf Of Chris Mackin
Sent: March 9, 2003 11:14 AM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Iterating Controls

Arthur,

I suspect the problem is that you have the frm As Object and not frm As
Form.
I wrote this and it works using the frm As Form without error, you can
easily adapt to your needs:

Sub AllFormsControls()
Dim frm As Form
Dim ctl As Control
Dim objFrm As Object

For Each objFrm In CurrentProject.AllForms
    DoCmd.OpenForm objFrm.Name, acDesign
    Set frm = Forms(objFrm.Name)
    For Each ctl In frm.Controls
        Debug.Print ctl.Name
    Next
    Set frm = Nothing
    DoCmd.Close acForm, objFrm.Name, acSaveNo
Next

End Sub

Chris Mackin
www.denverdb.com
Denver Database Consulting, LLC



_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com