List box select all when clicking on asterisk

[Gina Maylone]

Good morning all! I hope you are all well! I have a multi select list box, I would like the user to be able to click the asterisk (first choice in the box) to select all of the items. I'm using this code to select all on a separate button which works fine, but...thanks in advance for any insite you can provide!

Dim j

With Me.List22
    For j = 0 To .ListCount - 1
         .Selected(j) = True
    Next
End With

[Welshgasman]

If Me.List22 = "*" ??

[pbaldy]

If that doesn't work, and it may not with a multiselect listbox, I include the column property:

Me.List22.Column(0)

Using the appropriate zero-based column number. You might also need to test that the item is selected, as they may unselect it as well. I have code where I add/remove selections to a temp table as the user selects/unselects and I believe I test the selected status.

[Gina Maylone]

If that doesn't work, and it may not with a multiselect listbox, I include the column property:

Me.List22.Column(0)

Using the appropriate zero-based column number. You might also need to test that the item is selected, as they may unselect it as well. I have code where I add/remove selections to a temp table as the user selects/unselects and I believe I test the selected status.

That did it! Thanks pbaldy!!

[pbaldy]

Happy to help!