select all button to select all items in multiple select listbox 2

[northernbeaver]

pretty straight forward question I have a listbox on a form. the form is unbound and the listbox has a rowsource set to a populated table and is showing the data fine. I want to create a command button on the form that when pressed will select all items in the list box so the user doesnt have to click every single one. not sure how to proceed

 

[BobStubbs]

Try this ...

Assume the command button is called btnSelectAll, and the list box is lstTest.

Paste this code into the button's On_Click event:

Private Sub btnSelectAll_Click()

Dim I As Integer

For I = 0 To lstTest.ListCount
    lstTest.Selected(I) = True
Next I

DoEvents

End Sub

I hope that this helps.

Bob Stubbs

 

[PHV]

I'd replace this:
For I = 0 To lstTest.ListCount
By this:
For I = 0 To lstTest.ListCount - 1

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244