You would be much better off building a query that would return all records, then including a Where condition when opening your Report (assuming you're using DoCmd.OpenReport to open your report). To do that, you'd have to look at all the Checkboxes on your form and build your Where clause:
Dim sFilter As String
If Nz(Me.ckBlind,False) = True Then
sFilter = "Blind=True"
End If
If Nz(Me.ckDeaf, False) = True Then
If Len(sFilter) > 0 then sFilter = sFilter & " AND "
sFilter = sFilter & "Deaf=True"
End If
and so on ...
Now, use sFilter when opening your Report:
DoCmd.OpenReport "YourReportName", acViewPreview, , sFilter