Public Function SelectAll(lst As ListBox) As Boolean
On Error GoTo Err_Handler
'Purpose: Select all items in the multi-select list box.
'Return: True if successful
'Author: Allen Browne. http://allenbrowne.com June, 2006.
Dim lngRow As Long
If lst.MultiSelect Then
For lngRow = 0 To lst.ListCount - 1
lst.Selected(lngRow) = True
Next
SelectAll = True
End If
Exit_Handler:
Exit Function
Err_Handler:
Resume Exit_Handler
End Function
call SelectAll(me.YourListboxName)
Subreport is not a solution.
I want to make one Report. Subreport is not a solution. Please look the attachment and advice.