Multi-select list box

J

Jim Pockmire

How can I test to see if no item has been selected in a multi-select list
box?
 
D

Douglas J. Steele

If Me!MyListBox.ItemsSelected.Count = 0 Then
' Nothing's been selected
Else
' At least one item has been selected
End If
 
M

mcescher

Jim said:
How can I test to see if no item has been selected in a multi-select list
box?
Click to expand...


Try something like this:
Public Function TestList()
Dim varItem, blnFnd As Boolean
blnFnd = False
With List0
For Each varItem In .ItemsSelected
Debug.Print .Column(0, varItem)
blnFnd = True
Next varItem
End With
TestList = blnFnd
End Function

This will return False if no rows are selected

HTH,
Chris M.
 
Top