Adding "ALL" to multiselect listbox

[aliendan]

I know I've seen this code somewhere quit awhile back and I can't find it anywhere. Does anyone out there know how to do this? Or is there code you can attach to a button that will select all that is in a multiselect list box? There's got to be a way to do this with out the combination of mouse clicking and shift key.
Dan Rogotzke
Dan_Rogotzke@oxy.com

 

[gol4]

Hopefully this link is what you have in mind

http://www.mvps.org/access/forms/frm0043.htm

 

[thornmastr]

You could define a select all button and on the on click event use the following code:


Private Sub CommandButton_Click()
Dim i As Integer: i = 0
For i = Me.ListBox.ListCount To 0 Step -1
Me.ListBox.Selected(i) = True
Next
End Sub
Robert Berman
Data Base consultant
Vulcan Software Services
thornmastr@yahoo.com

 

[aliendan]

Holly cow! Answers to both questions in less than 30 minutes!!! Thank you both so very much...that was IT! I know it was out there somewhere.
Dan Rogotzke
Dan_Rogotzke@oxy.com