Access - update form controls

				
'**************************************
' Name: Access - update form controls
' Description:This code snippet itterates over open forms in an Access DB allowing you to easily set properties of controls programmatically.
' By: RegX
'
' Assumes:This only iterates through open forms. To use this simply open all the forms you want to edit, paste this code into a module, and call it from the immediate window.
Possible uses are:
 Change any property of a certain type of control
 Rename controls
I created this because I had a DB where all the controls names where all caps. I used this to automatically rename all controls to initial caps. Then later in the project I used it to turn off autocorrect for all text and combo controls. Very usefull so I thought I would post it.
'
'This code is copyrighted and has' limited warranties.Please see http://www.Planet-Source-Code.com/vb/scripts/ShowCode.asp?txtCodeId=48155&lngWId=1'for details.'**************************************

Public Sub editallopenforms()
'111 = combo
'109 = textbox
On Error Resume Next
Dim frm As Form
For Each frm In Application.Forms
 Debug.Print frm.NAME
For Each ctl In frm.Controls
'Debug.Print ctl.NAME & "-"; ctl.ControlSource & "-" & ctl.ControlType
If ctl.ControlType = 111 Then
'ctl.AllowAutoCorrect = False
End If
Next ctl
Next frm
End Sub