Using ListBox.ItemsSelected property value as function argument

Question

How can I pass the value of the ItemsSelected property in an Access ListBox to a function which will iterate through the items?  The Help for the ItemsSelected property says that it is a collection, but if I have a function

    function Iterate(Items as Collection)...

and then say

    Iterate(List.ItemsSelected)

I get "Type mismatch" at the point of the function call

Answer 1

What exactly is it that you're trying to do?  Scott demonstrates one method of how to handle a control and the ItemsSelected property.  If you want to do this outside of the form module, you can pass the control by reference as I mentioned before. 

Example:

Function ProcessItemsSelected(ControlObject as Control) As String

    Dim varItem As Variant

    Dim strReturn As String

    strReturn = ""

    For Each varItem In ControlObject.ItemsSelected

        If (strReturn<>"") Then

            strReturn = strReturn & vbCrLf

        End If

        strReturn = strReturn & ControlObject.ItemData(varItem)

    Next varItem

    ProcessItemsSelected = strReturn

End Function

Answer 2

Thanks for the replies.  Although it wouldn't be quite satisfactory to do that if you were trying to create a multi-tiered application, would it?  Passing a user interface control to a lower-level function.  I suppose I would have to manually copy the contents of the ItemsSelected property to a regular collection in the user interface event handler.

Answer 3

Example: Dim frm As Form, ctl As Control Dim varItem As Variant Dim strSelection As String Set frm = Form!frmMyForm Set ctl = frm!lbMultiSelectListbox For Each varItem In ctl.ItemsSelected strSelection = ctl.ItemData(varItem) Next varItem

Answer 4

You need to pass the control object, then reference the property in your procedure.