Deselecting list causing issue

[Welshgasman]

Is the listbox set to multiselect? You could reset its row source or use the following function:

Function ClearList(lst As ListBox) As Boolean
Dim varItem
If lst.MultiSelect = 0 Then
    lst = Null
Else
    For Each varItem In lst.ItemsSelected
        lst.Selected(varItem) = False
    Next
End If
End Function

To use it in your click event:

ClearList(Me.lstMainOptions)

Cheers,

Vlad,
I get Object required if I use that syntax?


Function is recognised fine regardless?, so no idea what Dave is doing?

However I got it to work with

Private Sub cmdClearList_Click()
Call ClearList(Me.lstRepeatNum)
End Sub

I belive the first syntax was trying to pass the listbox value and not itself as an object?

[Gina Maylone]

This is what I use:

Private Sub Command95_Click()Dim i As Integer
For i = 0 To Forms!freportparams!MFGS.ListCount - 1
Forms!freportparams!MFGS.Selected(i) = False
Next i
End Sub

[Welshgasman]

Gina,
I effectively gave that same type code in post #4, and Dave said it did not work for him?

Vlad is doing the same thing, but more efficiently, as only looking at Selected, not the whole list.?

MajP over on AWF did it this way as well?, but part of his FAYT listbox class.

Public Sub ClearSelection()
  Dim selectedItem As Variant
  For Each selectedItem In mListbox.ItemsSelected
     mListbox.Selected(selectedItem) = False
  Next selectedItem
End Sub

[DMT Dave]

Thank you all for responses, I will come back to this and test all of your versions as there shouldn't be a reason why Function won't recognize when I have other declarations in the same Module such as CannonScan to open printer scanner and various others that work ok!!!!

Again, appreciate your input

[Welshgasman]

Well if the worst comes to the worst, just do it where you would call that function?

[DMT Dave]

Good point, can i mix the dim's and code within the same function ?

I maybe barking up the wrong tree but would that not open the CannonScan when i am clearing list (2 birds with same stone) ?

Or do you suggest moving further down the public function module ?

[Welshgasman]

Good point, can i mix the dim's and code within the same function ?

I maybe barking up the wrong tree but would that not open the CannonScan when i am clearing list (2 birds with same stone) ?

Or do you suggest moving further down the public function module ?

NO!, I mean just clear the list with the simple 3 lines of code wherever you were going to call it as a function?

So instead of

Blah Blah Blah
ClearList(Me.lstMainOptions)

just use

Blah Blah Blah
Dim varItem
For Each varItem In Me.lstRepeatNum.ItemsSelected
    Me.lstRepeatNum.Selected(varItem) = False
Next

Though I always put my Dims at the top of the module.

[DMT Dave]

got you, code as last event on list click, perhaps lost focus so we can confirm there is no clash with procedures