Extended Selection Listbox

Extended Selection Listbox

am 28.12.2007 21:56:54 von McSwain

I'm having alot of trouble getting the selected rows from a listbox
set for Extended selection.

I've tried using ItemsSelected.Count but it doesn't seem to work
consistently. When I select a set of consecutive rows, it says the
Count is 1, but when I select using the Ctrl key, it shows the correct
Count.

Any ideas?
Thanks
Paul.

Re: Extended Selection Listbox

am 29.12.2007 03:10:29 von Allen Browne

Paul, what version of Access is this?
I can't reproduce the problem in Access 2007 SP1.

Presumably the list box is unbound (since it's multi-select.)
Is the Bound Column visible?
Column Heads on or off?

Are you using a particular event to test ItemsSelected.Count?

--
Allen Browne - Microsoft MVP. Perth, Western Australia
Tips for Access users - http://allenbrowne.com/tips.html
Reply to group, rather than allenbrowne at mvps dot org.

"McSwain" wrote in message
news:5e58b55b-dfbd-483a-bc27-f2305b4c2bd5@f3g2000hsg.googleg roups.com...
> I'm having alot of trouble getting the selected rows from a listbox
> set for Extended selection.
>
> I've tried using ItemsSelected.Count but it doesn't seem to work
> consistently. When I select a set of consecutive rows, it says the
> Count is 1, but when I select using the Ctrl key, it shows the correct
> Count.
>
> Any ideas?
> Thanks
> Paul.

Re: Extended Selection Listbox

am 29.12.2007 03:47:50 von Salad

McSwain wrote:

> I'm having alot of trouble getting the selected rows from a listbox
> set for Extended selection.
>
> I've tried using ItemsSelected.Count but it doesn't seem to work
> consistently. When I select a set of consecutive rows, it says the
> Count is 1, but when I select using the Ctrl key, it shows the correct
> Count.
>
> Any ideas?
> Thanks
> Paul.

Since you don't provide any code it would be difficult to determine what
you are doing wrong.

Adding to Allen's post, what happens if you were to run this code
MsgBox Me.YourListBoxName.ItemsSelected.Count
in the LostFocus event.

What happens if you were to run this code?
Dim var As Variant

If Me.YourListBoxName.ItemsSelected.Count > 0 Then
For Each var In Me.YourListBoxName.ItemsSelected
msgbox Me.YourListBoxName.Column(0, var) & ", "
Next
Else
msgbox "Nothing is selected!"
Endif

Brain
http://youtube.com/watch?v=EiuuiTwqBLE