Can you change a button group lock options to True/False with 1 command?

[TAPS_MikeDion]

Just wondering if I can shorten my code a tad by changing grouped buttons with 1 command instead of two.

For example: If you have a group of two radio buttons (for this example I'll call the group "NewEmp") and you want to lock or unlock them, do you have to use two commands (i.e. Me.NewEmpYes.Locked = False, Me.NewEmpNo.Locked = False) or is there a way to lock/unlock them both with one command since they're grouped together?

Thanks.

 

[DanteAmor]

There is not a single command for that.
You have to go through the controls, ask if it is an option button and if it is within the group, then change the status, for example:

  Dim Cntrl As Control
  For Each Cntrl In Controls
    If TypeOf Cntrl Is MSForms.OptionButton Then
      If Cntrl.GroupName = "NewEmp" Then
        Cntrl.Locked = False
      End If
    End If
  Next

 

[TAPS_MikeDion]

Thanks Dante! I'm going to try this.

 

[DanteAmor]

Youre welcome, thanks for the feedback.

 

[TAPS_MikeDion]

Thanks Dante. It worked for one set of buttons.

What in your opinion would be the best way to approach it so it works with multiple groups?
By that, I mean there are several groups of buttons that need to be either False or True at the moment that code is called upon. Right now, your code works with one set of buttons. If I were to add ElseIf, then it will bypass the other button groups.

Thanks again!

 

[DanteAmor]

It may be so:

 Dim Cntrl As Control
  For Each Cntrl In Controls
    If TypeOf Cntrl Is MSForms.OptionButton Then
      Select Case Cntrl.GroupName
        Case "NewEmp": Cntrl.Locked = [COLOR=#ff0000]False[/COLOR]
        Case "[COLOR=#0000ff]Group2[/COLOR]": Cntrl.Locked = [COLOR=#008000]True[/COLOR]
        Case "[COLOR=#0000ff]Group3[/COLOR]": Cntrl.Locked = [COLOR=#ff0000]False[/COLOR]
      End If
    End If
  Next

 

[TAPS_MikeDion]

Awesome! This worked. Thanks Dante. Funny, I was thinking about using Select Case, but didn't know if that would work for this.

Had to edit the code a little. The first "End If" should be "End Select" for those who may come across this thread down the road.

 

[DanteAmor]

Awesome! This worked. Thanks Dante. Funny, I was thinking about using Select Case, but didn't know if that would work for this.

Had to edit the code a little. The first "End If" should be "End Select" This is correct


for those who may come across this thread down the road.

Must be:

 Dim Cntrl As Control
  For Each Cntrl In Controls
    If TypeOf Cntrl Is MSForms.OptionButton Then
      Select Case Cntrl.GroupName
        Case "NewEmp": Cntrl.Locked = False
        Case "Group2": Cntrl.Locked = True
        Case "Group3": Cntrl.Locked = False
[COLOR=#ff0000]      End Select[/COLOR]
    End If
  Next