Hard return in unbound textbox printing in report

[ManuelC]

Hi

I have a form that contains a multiselect listbox (simple multiselect)
and a command button. The listbox shows a list of all reports (about
20) available for users to print and the command button has an
onclick() event for printing these reports.

I also have a textbox in the form that shows which reports have been
selected.

I have these lines of code attached to the OnClick() event on the
listbox (initially graciously provided by Arvin Meyer MVP but with
slight modifications)

Private Sub ReportList_Click()

Dim varItem As Variant
Dim strList As String

With Me!ReportList
If .MultiSelect = 0 Then
Me!txtSelected = .Value

Else
For Each varItem In .ItemsSelected
strList = strList & .Column(0, varItem) & vbNewLine
Next varItem

If strList <> "" Then
strList = Left$(strList, Len(strList) - 1)

End If
Me.Text3 = strList

End If
End With
End Sub

Code works fine but when i go to print a report with the results of the
textbox, i get a small box - unprintable character (hard return??)at
the end of the last selection. I found how to get rid of it with an
update query in a table in other postings but since my textbox is
unbound, i can't seem to find a way to get rid of this character.

Thanks for your help

[Phil Stanton]

You might try

Private Sub ReportList_Click()

Dim varItem As Integer
Dim strList As String

With Me!ReportList
If .MultiSelect = 0 Then
Me!txtSelected = .Value

Else
For Each varItem In .ItemsSelected -1
strList = strList & .Column(0, varItem) & vbCRLF
Next varItem
strList = strList & .Column(0, varItem) ' I think this should pick up
the last row without the additional New Line

> Me.Text3 = strList
End If
End With
End Sub

Phil

"ManuelC" <bo****@hotmail.com> wrote in message
news:11**********************@f14g2000cwb.googlegr oups.com... Hi

I have a form that contains a multiselect listbox (simple multiselect)
and a command button. The listbox shows a list of all reports (about
20) available for users to print and the command button has an
onclick() event for printing these reports.

I also have a textbox in the form that shows which reports have been
selected.

I have these lines of code attached to the OnClick() event on the
listbox (initially graciously provided by Arvin Meyer MVP but with
slight modifications)

Private Sub ReportList_Click()

Dim varItem As Variant
Dim strList As String

With Me!ReportList
If .MultiSelect = 0 Then
Me!txtSelected = .Value

Else
For Each varItem In .ItemsSelected
strList = strList & .Column(0, varItem) & vbNewLine
Next varItem

If strList <> "" Then
strList = Left$(strList, Len(strList) - 1)

End If
Me.Text3 = strList

End If
End With
End Sub

Code works fine but when i go to print a report with the results of the
textbox, i get a small box - unprintable character (hard return??)at
the end of the last selection. I found how to get rid of it with an
update query in a table in other postings but since my textbox is
unbound, i can't seem to find a way to get rid of this character.

Thanks for your help