Как предположил Дэвид, вы можете передать условие WHERE в отчет:
Function OpenReport(filterValue As String)
DoCmd.Close acReport, "ReportName"
DoCmd.OpenReport "ReportName", acViewReport, "", "[SomeFieldName]<>'" & filterValue & "'", acNormal
End Function