List box select all

[LB79]

Hello,

Can anyone tell me how to select all items of a list box?

Thanks

 

[rainman89]

Google is your friend!

http://allenbrowne.com/func-12.html

 

[LB79]

Thanks - Ive seen this already (spent ages on Google), I cant seem to get it to work which is why I asked here...
My first problem is "Argument no optional" on the Call SelectAll line.

 

[rainman89]

This line?

Public Function SelectAll(lst As ListBox) As Boolean

You need to call it using

SelectAll(yourlistboxname) <-changing the name to match your listbox name

 

[LB79]

Thanks Rainman.
When I run the code with that bit done i get a debug on the row "SelectAll = True" saying compile error on left side of assignment must return varient or object.
Do you know what that means?

Thanks

Public Function LstSelectAll(Lst As ListBox) As Boolean
Dim Row As Long
If Lst.MultiSelect Then
For lngRow = 0 To Lst.ListCount - 1
Lst.Selected(Row) = True
Next
SelectAll = True
End If
End Function

 

[boblarson]

Typo -

change it to:

LstSelectAll = True

 

[LB79]

Of course! I change the name - Access didnt like it for some reason.
OK guys... almost there. I naw have it running, but its only selecting 1 item from the list instead of all items. What else have I done wrong? LOL

Thanks

Public Function LstSelectAll(Lst As ListBox) As Boolean
Dim Row As Long
If Lst.MultiSelect Then
For lngRow = 0 To Lst.ListCount - 1
Lst.Selected(Row) = True
Next
LstSelectAll = True
End If
End Function

 

[rainman89]

it should be

For lngRow = 0 To Lst.ListCount - 1
Lst.Selected([COLOR=Red]lngRow[/COLOR]) = True
Next
LstSelectAll = True

 

[LB79]

Thats great! Thanks very much!