Option Group Hide buttons VBA codes

[JennyL]

Hi all,

I have a form with an option group frame. When a user click on the radio button of the option group, i want the command button to display or hide. I have 9 buttons or could be more in the future, is there any shorter code that i can write besides repeating the following If / ElseIf statement 9 or more times for each option radio button?

Private Sub ArchiveFrame_Click()
If Me.ArchiveFrame = 1 Then
Me.CmdArchiveCustomer.Visible = True
Me.CmdArchiveCAD.Visible = False
Me.CmdArchiveCC.Visible = False
Me.CmdArchiveCO.Visible = False
Me.CmdArchivePay.Visible = False
Me.CmdArchiveRRC.Visible = False
Me.CmdArchiveRRD.Visible = False
Me.CmdArchiveUSLB.Visible = False

ElseIf Me.ArchiveFrame = 2 Then
Me.CmdArchiveCustomer.Visible = False
Me.CmdArchiveCAD.Visible = True
Me.CmdArchiveCC.Visible = False
Me.CmdArchiveCO.Visible = False
Me.CmdArchivePay.Visible = False
Me.CmdArchiveRRC.Visible = False
Me.CmdArchiveRRD.Visible = False
Me.CmdArchiveUSLB.Visible = False


End If
End Sub




I know the above code will work, but is there a better way to do this if statement?

Thanks,

[pbaldy]

One way:

Me.CmdArchiveCustomer.Visible = (Me.ArchiveFrame = 1)
Me.CmdArchiveCAD.Visible = (Me.ArchiveFrame = 2)
Me.CmdArchiveCC.Visible = (Me.ArchiveFrame = 3)
Me.CmdArchiveCO.Visible = (Me.ArchiveFrame = 4)
Me.CmdArchivePay.Visible = (Me.ArchiveFrame = 5)
Me.CmdArchiveRRC.Visible = (Me.ArchiveFrame = 6)
Me.CmdArchiveRRD.Visible = (Me.ArchiveFrame = 7)
Me.CmdArchiveUSLB.Visible = (Me.ArchiveFrame = 8)

[JennyL]

Hi all,

I have a form with an option group frame. When a user click on the radio button of the option group, i want the command button to display or hide. I have 9 buttons or could be more in the future, is there any shorter code that i can write besides repeating the following If / ElseIf statement 9 or more times for each option radio button?

Private Sub ArchiveFrame_Click()
If Me.ArchiveFrame = 1 Then
Me.CmdArchiveCustomer.Visible = True
Me.CmdArchiveCAD.Visible = False
Me.CmdArchiveCC.Visible = False
Me.CmdArchiveCO.Visible = False
Me.CmdArchivePay.Visible = False
Me.CmdArchiveRRC.Visible = False
Me.CmdArchiveRRD.Visible = False
Me.CmdArchiveUSLB.Visible = False

ElseIf Me.ArchiveFrame = 2 Then
Me.CmdArchiveCustomer.Visible = False
Me.CmdArchiveCAD.Visible = True
Me.CmdArchiveCC.Visible = False
Me.CmdArchiveCO.Visible = False
Me.CmdArchivePay.Visible = False
Me.CmdArchiveRRC.Visible = False
Me.CmdArchiveRRD.Visible = False
Me.CmdArchiveUSLB.Visible = False


End If
End Sub


I know the above code will work, but is there a better way to do this if statement?

Thanks,

It worked! Thank you so much!!

[pbaldy]

Happy to help!