ItemSelected - got a Compiler "not defined" error

[Guest]

Hi,
I am trying to assign a value from a list to a text box.
The list has 2 columns, and is set to multi-select.
I got a compiler error running the procedure below:
(Compile error: ... Function not defined.
The debugger highlights the function "ItemsSelected" in the procedure.)

The procedure I used to assign the list value to the textbox is:

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

Set frm = Forms!Form1RunQuery4A1
Set ctl = frm!SITECRRTLIST
Sum.Value = ctl.Column(0, ItemsSelected(0))
End Sub

David

 

[Allen Browne]

What happens if you declare a list box rather than merely a control:
Dim frm As Form, ctl As Listbox

 

[Douglas J. Steele]

ItemsSelected isn't a "stand along" collection: it belongs to a specific
control.

See whether the following works:

Sum.Value = ctl.Column(0, ctl.ItemsSelected(0))

 

[Guest]

Adding ctl. to ctl.ItemsSelected, does the trick.
Thanks.
David