Have you created the report?
The report record source should be a SQL string or a saved query WITHOUT a Where clause. All records would be displayed.
In the button click event you create a filter string with the selected items.
The syntax is
Code:
SELECT column_name(s)
FROM table_name
WHERE column_name IN (value1, value2, ...);
What you need to create is the code in BLUE
This is what your code might look like
Code:
Public Sub ButtonClick()
Dim strWhere As String
Dim ctl As Control
Dim varItem As Variant
'make sure a selection has been made
If Me.lstBulkExercise.ItemsSelected.Count = 0 Then
MsgBox "Must select at least 1 Exercise"
Exit Sub
End If
'add selected values to string
Set ctl = Me.lstBulkExercise
For Each varItem In ctl.ItemsSelected
strWhere = strWhere & "'" & ctl.ItemData(varItem) & "',"
Next varItem
'trim trailing comma
strWhere = Left(strWhere, Len(strWhere) - 1)
strWhere = "[BulkExercise] IN (" & strWhere & ")"
'comment out next line after debugging complete
Debug.Print strWhere
DoCmd.OpenReport "ReportName", acViewPreview, , strWhere
End Sub