Command button to display combobox contents

Question

I have a combobox in a form, I want to enter text in the combobox and click the command button.  If the string “Red” is in the combobox then I want the msgbox "This is Red", if the string “Green” is in the combobox then I want msgbox "This is Green", and if the string “Blue” is in the combobox I want the msgbox "This is Blue".  Can you help?

Private Sub CommandButton5_Click()

If ComboBox5.Text = “Red” then

msgbox "This is Red"

ElseIf ComboBox5.text = “Green” then

msgbox "This is Green"

Else ComboBox5.text = “Blue” then

msgbox "This is Blue"

End If

End Sub

Answer 1

Try this:

Private Sub CommandButton5_Click()

    Select Case ComboBox5.Text

        Case "Red"

            MsgBox "This is " & ComboBox5.Text

        Case "Blue"

            MsgBox "This is " & ComboBox5.Text

        Case "Green"

            MsgBox "This is " & ComboBox5.Text

        Case "Yellow"

            MsgBox "This is " & ComboBox5.Text

    End Select

End Sub

Answer 2

Private Sub CommandButton5_Click()

  MsgBox "This is " & ComboBox5.Text

End Sub

Too simple?

Andreas.

Answer 3

The only issue I see with the original code you posted is:

Else ComboBox5.text = “Blue” then

That line should not use Else but ElseIf.  ElseIf is used to list another condition (no matter how many).  Else is not followed by a condition, and also not by "Then".  It covers situations where none of the above If/ElseIf are not met, and is not required in your case.

If ... then

something happens

Elseif ... then

something else happens

Elseif ... then

yet another option

Else

if none of the above were true then this happens

End If

Cimjet's Select Case option is another nice way to do it.

Answer 4

That works but can you show me how to make it work with the code I posted?