Check no selection if a listbox..

[basepointdesignz]

Hi,

I know that this is a simple one but i'm simple, so help me, lol..

I want to trap error for if nothing has been selected in a listbox (its set to multiselect btw, just in case that matters)..

I tried this:

If LayoutLIST.ListIndex = -1 Then
    MsgBox "No, its not selected"
    Exit Sub
End If

...as a test but it didn't seem to work (saw that code somewhere online - not the msgbox bit)..

Posted same thread in VB6 forum just on case..

Cheers,

Paul
basepointdesignzltd..
XP Pro..
Pentium Core 2 Q6600 Quad Core
ASUS P5N-E SLI Motherboard
4GB DDR2 RAM
2 x SLI NVIDIA 8500GT SLi 1024MB DDR2 PCI-Express Graphics Cards

 

[SkipVought]

Hi,

I just posted in the VB forum.

    Dim i As Integer, bSelected As Boolean
    bSelected = False
    For i = 1 To ListBox1.ListCount
        If ListBox1.Selected(i) Then
            bSelected = True
            Exit For
        End If
    Next
    If Not bSelected Then
        MsgBox "no selection"
    End If

Skip,

_{Have you heard that the roundest knight at King Arthur's round table was...
Sir Cumference!}

 

[basepointdesignz]

Yeah hey Skip, still no joy. Can't find any info on it online at all, all the resources are for native vb listboxes, not vba msforms ones..


Cheers,

Paul
basepointdesignzltd..
XP Pro..
Pentium Core 2 Q6600 Quad Core
ASUS P5N-E SLI Motherboard
4GB DDR2 RAM
2 x SLI NVIDIA 8500GT SLi 1024MB DDR2 PCI-Express Graphics Cards

 

[strongm]

ListIndex = -1 ought to work with the MSForms ListBox in single selection mode, and Skip's solution should, with a minor correction, work for multiselect.

Dim i As Integer, bSelected As Boolean
bSelected = False
For i = 0 To ListBox1.ListIndex
If ListBox1.Selected(i) Then
bSelected = True
Exit For
End If
Next
If Not bSelected Then
MsgBox "no selection"
End If