Using VB how do I get rid of the ending ","

[Tiggertoo]

No I really don't speak VB of whatever this is... I stole it and customized to my needs...

Private Function PlatformSelected()
Dim Platform As Variant
Dim strItems As String
For Each Platform In Me![lstPlatform].ItemsSelected()
If Len(strItems) <> 0 Then strItems = strItems
strItems = strItems & Me![lstPlatform].Column(0, Platform) + ", " & Me![lstPlatform].Column(1, Platform)
Next Platform
PlatformSelected = strItems

End Function

I tried changing the & to + in this but I still get the ending ",

 

[raskew]

Hi -

Assuming the rest of the code performs as advertised, you can try this as the last line:

 PlatformSelected = Left(strItems, len(trim(strItems))-1)

HTH - Bob

 

[Tiggertoo]

That worked perfectly. Thank you!

I couldn't create the Access dbs that I do without Tek-tips!