Multiselect list problem

[John]

Hi

I am using the following get the items from a multiselect list;

Dim ctl As Control
For Each ctl In Me.BatchInvoice sList.ItemsSele cted

Problem is that I am getting a 'Object not found error'. Same with;

For Each ctl In Me!BatchInvoice sList.ItemsSele cted

What am I doing wrong?

Thanks

[Douglas J. Steele]

The ItemsSelected collection doesn't return a control. It's a collection of
Variants, where each Variant is an integer index referring to a selected row
in the list box. Try:

Dim ctl As Variant

For Each ctl In Me.BatchInvoice sList.ItemsSele cted
--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)
"John" <Jo**@nospam.in fovis.co.uk> wrote in message
news:eR******** ******@TK2MSFTN GP12.phx.gbl...

Hi

I am using the following get the items from a multiselect list;

Dim ctl As Control
For Each ctl In Me.BatchInvoice sList.ItemsSele cted

Problem is that I am getting a 'Object not found error'. Same with;

For Each ctl In Me!BatchInvoice sList.ItemsSele cted

What am I doing wrong?

Thanks

[PC Datasheet]

ItemsSelected is a collection of Variants!

From the Help file ----
Sub BoundData()
Dim frm As Form, ctl As Control
Dim varItm As Variant

Set frm = Forms!Contacts
Set ctl = frm!Names
For Each varItm In ctl.ItemsSelect ed
Debug.Print ctl.ItemData(va rItm)
Next varItm
End Sub

The next example uses the same list box control, but prints the values of
each column for each selected row in the list box, instead of only the
values in the bound column.

Sub AllSelectedData ()
Dim frm As Form, ctl As Control
Dim varItm As Variant, intI As Integer

Set frm = Forms!Contacts
Set ctl = frm!Names
For Each varItm In ctl.ItemsSelect ed
For intI = 0 To ctl.ColumnCount - 1
Debug.Print ctl.Column(intI , varItm)
Next intI
Debug.Print
Next varItm
End Sub
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1125 users have come to me from the newsgroups requesting help
re******@pcdata sheet.com


"John" <Jo**@nospam.in fovis.co.uk> wrote in message
news:eR******** ******@TK2MSFTN GP12.phx.gbl...

Hi

I am using the following get the items from a multiselect list;

Dim ctl As Control
For Each ctl In Me.BatchInvoice sList.ItemsSele cted

Problem is that I am getting a 'Object not found error'. Same with;

For Each ctl In Me!BatchInvoice sList.ItemsSele cted

What am I doing wrong?

Thanks

[PleaseStopAdvertising]

--
To anyone that reads this message thread, you should be aware that PC
Datasheet is notorious for advertising in newsgroups that are intended for
the *free* exchange of Access help. There are numerous consultants that
provide free expert support here. Datasheet has been repeatedly asked to
stop, but refuses.

If you would like to know more about this individual, please use the link
below.

http://home.tiscali.nl/arracom/whoissteve.html

Randy Harris

"PC Datasheet" <no****@nospam. spam> wrote in message
news:KI******** ***@newsread1.n ews.atl.earthli nk.net...

ItemsSelected is a collection of Variants!

From the Help file ----
Sub BoundData()
Dim frm As Form, ctl As Control
Dim varItm As Variant

Set frm = Forms!Contacts
Set ctl = frm!Names
For Each varItm In ctl.ItemsSelect ed
Debug.Print ctl.ItemData(va rItm)
Next varItm
End Sub

The next example uses the same list box control, but prints the values of
each column for each selected row in the list box, instead of only the
values in the bound column.

Sub AllSelectedData ()
Dim frm As Form, ctl As Control
Dim varItm As Variant, intI As Integer

Set frm = Forms!Contacts
Set ctl = frm!Names
For Each varItm In ctl.ItemsSelect ed
For intI = 0 To ctl.ColumnCount - 1
Debug.Print ctl.Column(intI , varItm)
Next intI
Debug.Print
Next varItm
End Sub
--
PC Datasheet
Your Resource For Help With Access, Excel And Word Applications
Over 1125 users have come to me from the newsgroups requesting help
re******@pcdata sheet.com


"John" <Jo**@nospam.in fovis.co.uk> wrote in message
news:eR******** ******@TK2MSFTN GP12.phx.gbl...

Hi

I am using the following get the items from a multiselect list;

Dim ctl As Control
For Each ctl In Me.BatchInvoice sList.ItemsSele cted

Problem is that I am getting a 'Object not found error'. Same with;

For Each ctl In Me!BatchInvoice sList.ItemsSele cted

What am I doing wrong?

Thanks