Automatically fill in options on a form

Audiojoe · Mar 7th, 2002, 05:02 AM

Hi,

I have a togglebutton and a combobox (which contains Yes, No and Maybe in it) on a userform I've designed. If I push the togglebutton I want Yes to be automatically displayed in the combobox. What line of code will I need to do this?

If it helps, the userform is called Userform2, the togglebutton is Togglebutton1 and the Combobox is called Combobox2

Thanks for any help

Dave Hawley · Mar 7th, 2002, 05:08 AM

Hi

Try something like:

Private Sub ToggleButton1_Click()
Dim strReply As String
Select Case ToggleButton1.Value
Case True
strReply = "Yes"
Case False
strReply = "No"
End Select
ComboBox1 = strReply
End Sub

Audiojoe · Mar 7th, 2002, 05:13 AM

Thanks Dave, that works great

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Mar 7th, 2002, 05:02 AM	#1
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	Hi, I have a togglebutton and a combobox (which contains Yes, No and Maybe in it) on a userform I've designed. If I push the togglebutton I want Yes to be automatically displayed in the combobox. What line of code will I need to do this? If it helps, the userform is called Userform2, the togglebutton is Togglebutton1 and the Combobox is called Combobox2 Thanks for any help

Mar 7th, 2002, 05:08 AM	#2
Dave Hawley Banned Join Date: Feb 2002 Posts: 1,582	Hi Try something like: Private Sub ToggleButton1_Click() Dim strReply As String Select Case ToggleButton1.Value Case True strReply = "Yes" Case False strReply = "No" End Select ComboBox1 = strReply End Sub

Mar 7th, 2002, 05:13 AM	#3
Audiojoe Board Regular Join Date: Feb 2002 Location: Where the wild roses grow Posts: 285	Thanks Dave, that works great