Selecting Only Text Box Controls In For Each Statement

[catbeasy]

I have some code as:

Dim ctl As Control
For Each ctl In Me.Controls
ctl.Locked = False
Next ctl

Which doesn't work I assume due to the fact that not all the controls on my form have the 'locked' property (some are lables, some command buttons)..

So, wondering how to select only controls that are text so this will work?

Thanks..

 

[boblarson]

Dim ctl As Control
For Each ctl In Me.Controls
   If ctl.ControlType = acTextBox Then
      ctl.Locked = False
   End If
Next ctl

 

[catbeasy]

Dim ctl As Control
For Each ctl In Me.Controls
   If ctl.ControlType = acTextBox Then
      ctl.Locked = False
   End If
Next ctl

Perfect! Thanks..

 

[boblarson]

Perfect! Thanks..

Sure thing