Hi all,
I have gotten a lot further on this thanks to a lot of suggestions and help from the people on this board. You can ignore my guidance question now as I have made a decision.
I have the following code which will take 2 values from list boxes and open up a report. I now want to be able to take said report and email it to a person as a rtf file. I can manually do this but wish to automatically do it, is this possible?
Here is the code I came up with incase someone can use it.
On Error GoTo Err_cmdOpenReport_Click
Dim strWhere As String
month_value = Me.Combo54.Column(1)
strWhere = "Expr1 ='" & Me.Combo52 & "' AND Expr3 = " & month_value & ""
'open the report, restricted to the selected items
DoCmd.OpenReport "Report Sales Sellers", acPreview, , strWhere
Exit_cmdOpenReport_Click:
Exit Sub
Err_cmdOpenReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenReport_Click
Thanks for any help on this...
I have gotten a lot further on this thanks to a lot of suggestions and help from the people on this board. You can ignore my guidance question now as I have made a decision.
I have the following code which will take 2 values from list boxes and open up a report. I now want to be able to take said report and email it to a person as a rtf file. I can manually do this but wish to automatically do it, is this possible?
Here is the code I came up with incase someone can use it.
On Error GoTo Err_cmdOpenReport_Click
Dim strWhere As String
month_value = Me.Combo54.Column(1)
strWhere = "Expr1 ='" & Me.Combo52 & "' AND Expr3 = " & month_value & ""
'open the report, restricted to the selected items
DoCmd.OpenReport "Report Sales Sellers", acPreview, , strWhere
Exit_cmdOpenReport_Click:
Exit Sub
Err_cmdOpenReport_Click:
MsgBox Err.Description
Resume Exit_cmdOpenReport_Click
Thanks for any help on this...