select/clear all button for a listbox 1

[davyre]

Hi,
I have a list box, and I create a button to automatically select all the items in that listbox.
here's the code:

If UnitIDBox.ListCount = 0 Then
    MsgBox ("The list is empty")
    Exit Sub
End If

If IsNull(UnitIDBox.ItemsSelected) Then
    Call SelectAll(Forms!FrmWholeDelivery!UnitIDBox)
    MsgBox ("A")
Else
    Call ClearList(Forms!FrmWholeDelivery!UnitIDBox)
    MsgBox ("B")
End If

the problem is the vba never went to IF clause (always go to ELSE), so there should be a problem. Can anyone help?Is the condition will always false?

 

[PHV]

I don't think a collection can be null.
What about this ?
If UnitIDBox.ItemsSelected.Count = 0 Then

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[davyre]

Nice! Thanks!