Actually Mike.

If its possible to bypass parameters, than it might work, but I don't know how to do that. Suppose I have a Date Parameter, but sometimes I just want to bypass the parameter and still be able see all the records would be fine. I hope this helps.


Dharmesh Bhavsar

OK, I am still having a wee problem with this one, but here is the general idea.

This works fine unless you have previously opened the report - It seems the Open event only fires the first time. I'll keep working on a possible solution, but if anyone else has any bright ideas, that would be great.

Mike

Form with button called cmdEmail
--------------------------------
Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEmail_Click
    Dim newNames As Report
    Dim stDocName As String

    stDocName = "myReport"
    DoCmd.SendObject acReport, stDocName

Exit_cmdEmail_Click:
    Exit Sub

Err_cmdEmail_Click:
    MsgBox Err.Description
    Resume Exit_cmdEmail_Click

End Sub

Private Sub Form_Load()
    txtDate = Format("1/1/1990", "Short Date")
End Sub
---------------------------------
In Load function of report:
---------------------------------
Private Sub Report_Open(Cancel As Integer)
        Me.Filter = "Date >= #" & Form_frmEmail.txtDate & "#"
        Me.FilterOn = True
End Sub
---------------------------------


Mike
EchoVue.com

For multiple reports and to hardcode the Email address in, review the code below... This sends the reports to the specified email address, with a subject line and a message. You could add the date variables in here if your manager needs to see the date range. I think that you still have to manually send the email, but there is probably a way around that to - I am not using Outlook right now, so my tinkiering is limited.

Hope that helps,

Mike

Private Sub cmdEmail_Click()
On Error GoTo Err_cmdEmail_Click
    Dim newNames As Report
    Dim stDocName As String

    stDocName = "myReport"
    DoCmd.SendObject acReport, stDocName, acFormatHTML, "[email protected]", , , "Productivity Report", "Insert any message here"
    stDocName = "myReport2"
    DoCmd.SendObject acReport, stDocName, acFormatHTML, "[email protected]", , , "Activity Report", "Insert any message here"


Exit_cmdEmail_Click:
    Exit Sub

Err_cmdEmail_Click:
    MsgBox Err.Description
    Resume Exit_cmdEmail_Click

End Sub

Mike
EchoVue.com