Programmatically selecting all items in a list box

[megmoo75]

Any suggestions on how I can programmatically select all items in a list box? I want the user to select an option button to "Select All" items in a list box.

Thanks in advance.

 

[BillPower]

Hi megmoo75,

This will select all the items in a List Box called "MyListName":

Dim ctl As Control, i As Integer
Set ctl = Me!MyListName
For i = 0 To ctl.ListCount - 1
ctl.Selected(i) = True
Next i

Bill

 

[megmoo75]

Thank you, Bill! Worked perfectly.

 

[Veep]

Dim lst As ListBox
Set lst = Me.YourListBox
Dim i As Integer
Dim x As Integer
i = lst.ListCount

For x = 0 To i - 1
lst.Selected(x) = True
Next

 

[Veep]

Snoozing again