Access Unable to Count all Selected Listbox Items

Question

I am using Multiselect (Extended) to select items in a list box. With the focus on the listbox, after I use the Shift+DownArrowKey to select more than one item, a count of items selected never includes the last one in the selected list. I am using the On Key Up and Down triggers for the arrow keys to perform the count (For Each ItemIndex In Me.List40.ItemsSelected).

While the focus is on the listbox, this procedure does not seem to update the list to include the last selection. Is there a way to get around this?

Answer 1

If you're only looking to obtain the count of selected items, you can use the Count property of the ItemsSelected collection:

List40.ItemsSelected.Count