OptionBox challenge

[kelly mort]

Hello All,
I am having issues with how to select an optionbox when I change the content of a combobox.

If there is a way out then let me know.

Thanks.
Kelly

 

[dmt32]

Hi,
one way maybe:

Private Sub ComboBox1_Change()
 Me.OptionButton1.Value = CBool(Me.ComboBox1.ListIndex = 2)
End Sub

This should return true when third item in combobox list (listindex starts from 0) is selected

Dave

 

[kelly mort]

Hi,
one way maybe:

Private Sub ComboBox1_Change()
 Me.OptionButton1.Value = CBool(Me.ComboBox1.ListIndex = 2)
End Sub

This should return true when third item in combobox list (listindex starts from 0) is selected

Dave

Oh okay thanks.

But it does not give what I want. I want that optionbutton on anytime I change the combobox.

Thanks again
Kelly

 

[dmt32]

try

Private Sub ComboBox1_Change()
 Me.OptionButton1.Value = CBool(Me.ComboBox1.ListIndex <> -1)
End Sub

Dave

 

[kelly mort]

Yes!

Right on point. Thanks a lot
Kelly

PS. Long time @Dave

 

[dmt32]

Yes!

Right on point. Thanks a lot
Kelly

PS. Long time @Dave

Glad solved.
Have my daughter & family staying for 3 months so far to busy doing my granddad stuff.

Dave

 

[kelly mort]

I have one more issue here:
What if I want to use a textbox change event to switch the option button?
I tried

Private Sub TextBox1_Change()
 Me.OptionButton1.Value = CBool(Me.TextBox1.Value = "")
End Sub

But did not work

 

[kelly mort]

Used the below to get what I wanted:

Private Sub TextBox1_Enter()
 Me.OptionButton1.Value = True
End Sub