darksniper
Registered User.
- Local time
- Today, 10:44
- Joined
- Sep 4, 2005
- Messages
- 108
Hi,
I have an on click event which adds selected items into a string
I also have a code that "select all" items in the list.
When I select items manually, and then output the selected items, I see them. The issue that I am having when I click select all, and return the list of items selected, I get a blank screen.
Is there any way to fix the issue.
Thank you!
I have an on click event which adds selected items into a string
Code:
Private Sub lstMailTo_Click()
Dim varItem As Variant
Dim strList As String
With Me!lstMailTo
If .MultiSelect = 0 Then
Me!txtSelected = .Value
Else
For Each varItem In .ItemsSelected
strList = strList & .Column(0, varItem) & ";"
Next varItem
strList = Left$(strList, Len(strList) - 1)
Me!txtSelected = strList
End If
End With
End Sub
I also have a code that "select all" items in the list.
Code:
Private Sub btnSelectAll_Click()
Dim i As Integer
Dim intListCount As Integer
intListCount = lstMailTo.ListCount - 1
For i = 0 To intListCount
lstMailTo.Selected(i) = True
Next
End Sub
Is there any way to fix the issue.
Thank you!
Last edited: