Clear combo box selection

[mario64]

I have a form built to enter certain text into a Word document based upon values in a combo box drop-down list. My problem is that I can't figure out how to clear my selection if I inadvertently select a value I shouldn't have. For example:

Combo box has choices of Left and Right. I select left when in fact I shouldn't have selected anything at all. Now I have no way to get rid of it. What I'd like to happen is if I press the Delete key it clears out the selection I just made. Is that possible? If so, how do I do it?

Thanks,
Mario64

[RobDog888]

Welcome to the Forums.

Are you using a UserForm or automating Word from VB?

[mario64]

Welcome to the Forums.

Are you using a UserForm or automating Word from VB?

UserForm

Mario64

[RobDog888]

Set the Style property of the combo to 0 - fmStyleDropDownCombo so you can delete the text that is typed in. Or Add
an item that is an empty string. Then if they select "blank" it can blank out or do what ever you code it to do.

[mario64]

Set the Style property of the combo to 0 - fmStyleDropDownCombo so you can delete the text that is typed in. Or Add
an item that is an empty string. Then if they select "blank" it can blank out or do what ever you code it to do.

I actually chose not to use that style because I want to force a selection from the drop-down list only. So I'm using style 2.

Is there another way to force selection from the combo box while allowing Delete to work?

Thanks,
Mario64

[RobDog888]

Yes, you can set the .ListIndex to -1 or no selection. In your clear button click event you can do this.

ComboBox1.ListIndex = -1

[mario64]

Yes, you can set the .ListIndex to -1 or no selection. In your clear button click event you can do this.

ComboBox1.ListIndex = -1

Hmm, let me try that and I'll report back. Tx.

Mario64

[mario64]

Can't seem to get it to work. I changed the style back to 0 then added the following:

Private Sub UserForm_Initialize()
' In this section of our code, we will set up the values
' for all of the combo boxes.
' We need to set up the data for our combo boxes

' Choices for Side Indicator
cmbSideInd.ListIndex = -1
cmbSideInd.AddItem ("L Left")
cmbSideInd.AddItem ("R Right")
cmbSideInd.AddItem ("B Both")

It still allows me to "free text" an entry into the box. What am I doing wrong?

Mario64

[RobDog888]

Keep the Style set to 0.
Then after all items are added, then try the -1.

[mario64]

Keep the Style set to 0.
Then after all items are added, then try the -1.

Nope. Still didn't work unfortunately. They can type anything they want into the box and it will accept it.

Mario64

[mario64]

Ok. I'm getting close. Using this code

Private Sub cmbSideInd_KeyDown(ByVal KeyCode As MSForms.ReturnInteger, ByVal Shift As Integer)
If KeyCode = 46 Then cmbSideInd.Clear
End Sub

does clear the box but then if you click the drop down again the whole thing is blank. I want to clear out the user's selection NOT the drop down list itself. Any ideas on how to accomplish that?

Thanks,
Mario64

[RobDog888]

.Clear will actually remove all list entrires from the combo box.
In the properties window for the combo box set the Style to 2. then add this code as a test but name your obejcts as the same so the events fire.

Private Sub CommandButton2_Click()
    ComboBox1.ListIndex = -1
End Sub
 
Private Sub UserForm_Initialize()
    ComboBox1.AddItem "Test1"
    ComboBox1.AddItem "Test2"
End Sub

[mario64]

Yeah, that did it. Thanks!

One last question, what's the difference between the Click event and the KeyDown event? I'm a keyboard person and won't actually be using the mouse to select from the combo boxes. Will Click still work? Should I take into account both scenarios?

Thanks,
Mario64

[Hack]

Yeah, that did it. Thanks!

One last question, what's the difference between the Click event and the KeyDown event? I'm a keyboard person and won't actually be using the mouse to select from the combo boxes. Will Click still work? Should I take into account both scenarios?

Thanks,
Mario64

Yes...in fact you should always give your users two or three different ways of doing the same thing. They like that.