stuck for combobox code 1

[thelocaluk]

I'm a bit lost for what I put in place of the ? in this code. I want to check if combobox1 selection has been made but combobox2 has no selection then to bring up message.

If Me.cmbReason.Value = ? And Me.cmbDes.Value = "" Then
  Me.cmbDes.SetFocus
  MsgBox "Please enter Description"
  Exit Sub
 End If

 

[rmikesmith]

Perhaps something like:

If Me.cmbReason.ListIndex <> -1 Then
  If Me.cmbDes.ListIndex = -1 Then
    Me.cmbDes.SetFocus
    MsgBox "Please enter Description"
    Exit Sub
  End If
End If

Regards,
Mike

 

[fumei]

First of all, are you looking for a specific selection criteria for the combobox, or just any one? Also, do you have a "null" item? - that is, quite often people put an explanatory item at the top of the list. Something like "Please select an item".

Gerry

 

[thelocaluk]

Thanks Mike, this is what I did

If Me.cmbReason.ListIndex <> -1 Then
  If Me.cmbDes.ListIndex = -1 Then
    Me.cmbDes.SetFocus
    MsgBox "Please enter Description"
    Exit Sub
  End If
End If

Fumei, how do I go about adding an explanatory item to the top of a list?

 

[fumei]

It is simply one of the items, usually the first one.

If you AddItem to a combobox and do nothing more then the initial item displayed is Null...no item is shown. But if you have:

Combobox1.AddItem "Please select blah blah"
Combobox1.AddItem "First real item"
Combobox1.AddItem "Second real item"
Combobox1.AddItem "Third real item"
Combobox1.ListIndex = 0

then the combobox will initially display with ListIndex 0 (Please select blah blah).

Just remember if you are using ListIndex to get the values that 0 is your explanatory item!


Gerry