Filtering Report when using SendObject

[Guest]

Hello,

I'm trying to use the sendobject to e-mail a report that opens from several
diffeent plcaes so I need a filter when I send it so that it only shows the
correct information.

Can anyone help me?

 

[Allen Browne]

In a standard module (created through the Modules tab of the Database
window), in the General Declarations section (top of the module with the
Option statements), enter:
Public gstrReportFilter As String

In the Open event of your report, apply the filter based on this string, and
then clear it:
Private Sub Report_Open(Cancel As Integer)
If gstrReportFilter <> vbNullString Then
Me.Filter = gstrReportFilter
Me.FilterOn = True
gstrReportFilter = vbNullString
End If
End Sub

In the code that uses SendObject, set the filter string first:
gstrReportFilter = "[ClientID] = 99"
DoCmd.SendObject ...