Taking variables from a string and turning them into strings

[esh112288]

I've got the following scenario:

I'm using a multi-select box which has both a TypeID number and a TypeName for each selection
Once the user selects multiple items, I have code which turns the TypeID numbers into a string with commas in between i.e. "2, 4, 8". These items are stored in one field of the main table as TEXT
I'm looking to write a query to pull all of the numbers in between the commas and turn those numbers into their matching name.
So "2, 4, 8" would become "Alpha, Delta, Beta".
Last, I'm going to create a new "printable" form which displays this field with selections rather than the list box.

Can someone help me to write the code/query for this? I'm no expert with VB and am not sure where to turn.

Thanks.

[ssanfu]

I have code which turns the TypeID numbers into a string with commas in between i.e. "2, 4, 8".

I would use the same code, but instead of using the bound column (usually column 0), use the "Column" property, changing 0 to whatever column the text is in.

control.Column(column, row)

[esh112288]

I would use the same code, but instead of using the bound column (usually column 0), use the "Column" property, changing 0 to whatever column the text is in.

I definitely understand what you mean by displaying column 2 versus the ID column. However, I was able to reapply the code from someone else and the result was the first column and I can't determine how to change it based on what you've said. The following is what I have:

Private Sub QAList_Click()
 
Dim SelectedValues As String
Dim frm As Form
Dim varItem As Variant
Dim lstItems As Control
Set lstItems = Me!QAList
 
For Each varItem In lstItems.ItemsSelected
    If SelectedValues > "" Then
        SelectedValues = SelectedValues & ", " & lstItems.ItemData(varItem)
    Else
        SelectedValues = lstItems.ItemData(varItem)
    End If
Next varItem
Me!QAType = SelectedValues
 
End Sub

[ssanfu]

How about this?

Private Sub QAList_Click()

   Dim SelectedValues As String
'   Dim frm As Form
   Dim varItem As Variant
   Dim lstItems As Control
   Dim ListCol As Integer

   ListCol = 1

   Set lstItems = Me!QAList
   For Each varItem In lstItems.ItemsSelected
      If SelectedValues > "" Then
         SelectedValues = SelectedValues & ", " & lstItems.Column(ListCol, varItem)
      Else
         SelectedValues = lstItems.Column(ListCol, varItem)
      End If
   Next varItem

   Me!QAType = SelectedValues

End Sub