Email report with criteria

[Moxy1]

Currently I have a report that is open with the following code:

Private Sub Command242_Click()
Dim strCriteria As String


strCriteria = "[Status]='O'"
    
DoCmd.OpenReport "rptAllIssuesUnion", , , strCriteria

End Sub

Is there a way to send this same report through an email? When I use SendObject there is no spot for the criteria.

Thanks

 

[Remou]

* If you use a small form for the criteria, you can reference it in the query on which you buit the report.

* You can rebuild the query for the report programmatically.

* You can modify the record source of the report programmatically.

I think that's most of the options.

 

[Moxy1]

if either the 2nd or 3rd option is taken where/how would these be changed? Is it on one of the events of the report or here in the code that launches the report?

 

[Remou]

Just before launching the report is good. Here is an example of option 2:

    strSQL = "Select * From tblTable Where "
    strSQL = strSQL & strFilter
    If DLookup("Name", "MSysObjects", "Name= 'RptQry'") <> "" Then
        Set qdf = CurrentDb.QueryDefs("RptQry")
        qdf.SQL = strSQL
    Else
        Set qdf = CurrentDb.CreateQueryDef("RptQry", strSQL)
    End If