Option Buttons don't update

[BrianExcel]

I have 5 option buttons. Each one sets a different image to "Visible = True" upon the click event.

Upon opening the form I can click each option button once and they will all display properly, BUT after the first click they don't update. It's almost as if they don't get set to false or something after updating.

Below is the code I am using currently. any ideas?

Private Sub optVelo_Click()
    
    If Me.optVelo.Value = True Then
        UserForm1.imgVelo.Visible = True
    End If
End Sub

 

[xenou]

Not sure but option groups usually have a value corresponding to the index of the chosen button (such as 1,2,3,4, or 5 ... or if 0-based then 0,1,2,3 or 4).

Possibly you need to investigate the value of the option buttons - it would be instructive to use code like this:

Private Sub optVelo_Click()
    
    Msgbox Me.optVelo.Value

End Sub

If you see values such as 1 or 2 coming up, you need to not look for a "false" or "true" value for the option group, but work with the index values of the chosen option.

ξ

 

[BrianExcel]

I just figured it out...I had the sub set as click instead of change. As soon as I changed that the code worked.

Thanks though!

 

[Smitty]

It's almost as if they don't get set to false or something after updating.

You haven't told the code what to do if they're deselected.

Chip Pearson has a good function for evaluating Option Buttons in a group here.

And here's a good link for using Select Case.

HTH,