runtime error '13': type mismatch

[Pookiemeister]

On my form, I have a listbox that returns a list of selected items from a listbox. strReturns equals the selected items position in the listbox, and strReturn equals the selected .itemdata(). The error occurs on the line of code below. Thank you.

strReturn = strReturns & ", " & lstBx.ItemData(strReturns)

Function lbxRPItems() As String
   'Returns a list of items in the listbox
   Dim lstBx As ListBox
   Dim lngItems, lngItem As Long
   Dim strReturns, strReturn As String
   Dim varItem As Variant
  
   strReturn = ""
   strReturns = ""
   Set lstBx = Me!lstResponsiblePerson
   lngItems = lstBx.ItemsSelected.Count
   If lngItems > 0 Then
      For lngItem = 0 To lngItems - 1
         If lngItem = 0 Then
            strReturns = CStr(lstBx.ItemsSelected(lngItem))
            strReturn = lstBx.ItemData(strReturns)
         Else
            strReturns = strReturns & ", " & CStr(lstBx.ItemsSelected(lngItem))
           strReturn = strReturns & ", " & lstBx.ItemData(strReturns)
         End If
      Next
      MsgBox strReturn 'Test purposes to view output
   End If
   Set lstBx = Nothing
  
   lbxRPItems = strReturn
End Function

 

[jasonb75]

I'm not familiar with Access, but the basic principles will be the same as Excel, strReturns is a text string (although it has been declared as a variant), the part in brackets at the end of the line should be a valid index position (number).

 

[Micron]

This might not be it but anything that you don't explicitly declare is a variant - i.e. strReturns. Sometimes that results in unexpected values or data types.
Secondly, you're trying to get the item data from row n in a listbox but IIRC, you have to pass a number to ItemData as lstMyList.ItemData(5) yet you're passing a string (well, in some cases, actually a variant because of not being declared). You need to use
Dim lngItems As Long, lngItem As Long
not
Dim lngItems, lngItem As Long

in all cases, plus don't pass a string to ItemData

 

[Pookiemeister]

in all cases, plus don't pass a string to ItemData

So how can I retrieve the name of the selected item, so I can put that in my table? Thank you.

 

[Micron]

why not as per the example here:

ListBox.ItemData property (Access)

Office VBA reference topic

docs.microsoft.com