VBA - if combobox is blank

[mcooer0913]

I am trying to display a message reminding the user (using a userform) to select an option in a combobox. If the user hasn't selected an option, I would like to display a message saying something like "Please select an option." I have used the following code successfully with text boxes:

Private Sub cmdOK_Click()
If Me.txtFirstName.Value = "" Then
MsgBox "Please enter a First Name.", vbExclamation, "Staff Expenses"
Me.txtFirstName.SetFocus
Exit Sub
End If

But when I try to replace the txtFirstName with the combobox control, it doesn't work. Any suggestions?

 

[RoryA]

What do you mean by "doesn't work"? You could test its ListIndex property - if it's -1 then nothing has been selected.

 

[mcooer0913]

What do you mean by "doesn't work"?

I just doesn't do anything. I hit "OK" and regardless of whether there is an option selected in the combobox, no message pops up for the user.

 

[RoryA]

I can't replicate that behaviour. Did you try checking the listindex?

 

[mcooer0913]

I can't replicate that behaviour. Did you try checking the listindex?

Like this?:

If cboStatus.ListIndex = "-1" Then
MsgBox "Please enter status (Active/Inactive) for this client.", vbExclamation, "Client Info"
Me.cboStatus.SetFocus
Exit Sub
End If