User Forms - loop through controls to lock/unlock

[CarolynS]

HI

I am trying to loop through some (not all) boxes on a user form to lock/unlock them when a particular command button is clicked. The controls in questions all have names that start with "POinv" and then a number. I have the following code but it's not working as it doesn't seem to like controls.locked. How else can I do this?

Private Sub CommandButton2_Click()
'validate purchase order info on invoice form
Dim x As Integer
'unlock text boxes
For x = 1 To 11
Me.Controls("POinv" & x).Locked = False

Next


End Sub

Thanks in advance

 

[Norie]

What type of controls are they?

 

[CarolynS]

text boxes and combo boxes but thinking about it I don't actually need the combo boxes. I could change them to text boxes

 

[CarolynS]

I should probably also have mentioned that each box is numbered 1 - 11 hence why I'm using for x = 1 to 11. This has worked fine in other pieces of code I've used with this user form but it doesn't seem to like .locked

 

[GTO]

I created a temp form with the stated controls named as listed and your code ran fine for me. It really shouldn't matter, but you might try:

<font face=Courier New>Me.Controls(CStr("POinv" & x)).Locked = <SPAN style="color:#00007F">False</SPAN></FONT>

You may wish to confirm the names. Typos kill us all.

BTW, what type error and if you put a breakpoint on Private Sub CommandButton2_Click(), and step thru it, what line errors?

Mark

 

[Norie]

Are there any labels among the group of controls you are trying to lock/unlock?

 

[CarolynS]

Are there any labels among the group of controls you are trying to lock/unlock?

There are labels on the form but not included within the group I'm trying to unlock.

 

[CarolynS]

I created a temp form with the stated controls named as listed and your code ran fine for me. It really shouldn't matter, but you might try:

<font face=Courier New>Me.Controls(CStr("POinv" & x)).Locked = <SPAN style="color:#00007F">False</SPAN></FONT>

You may wish to confirm the names. Typos kill us all.

BTW, what type error and if you put a breakpoint on Private Sub CommandButton2_Click(), and step thru it, what line errors?

Mark

Thanks Mark. I'm out at the moment but will get the error type later