Create multiple reports using Filter and save as RTF
- From: "THall" <u28073@uwe>
- Date: Thu, 19 Oct 2006 19:11:45 GMT
Hello everyone - I have posted this to numerous database sites with no
solution yet. I have a report that needs to run multiple times, looping
through a strFilter and using that strFilter as the file name to save as RTF.
Right now, the reports loop using the strFilter and produces a PDF doc, but
the powers that be now want a RTF instead.
Here's the current code:
[code]
Private Sub cmdCreateBHPDFs_Click()
On Error GoTo Err_cmdCreateBHPDFs_Click
' Create Variables for Subroutine
Dim strDocName As String 'Report Name
Dim db As Database 'Database to retrieve data from
Dim strSql As String 'SQL Statement
Dim rst As Recordset 'Data Recordset
Dim strFilter As String 'Report Filter
' Set Values for Variables
strDocName = "ReportBHRepTotDetailPDF"
strSql = "SELECT SALESREP_ID FROM qryCurrentReps ORDER BY SALESREP_ID"
Set db = CurrentDb
' Open recordset containing list of Sales Reps
Set rst = db.OpenRecordset(strSql)
' Test recordset and act accordingly
If Not rst.EOF Then
' A list of Sales Reps Exists, print the reports
'Advance through the Sales Rep list, one at a time
'Go to first record of recordset
rst.MoveFirst
'Setup loop to loop through Sales Rep List
Do Until rst.EOF
'Set the report filter property to the SaleRep in the recordset,
zero base array
strFilter = "SALESREP_ID = '" & rst(0) & "'"
'Print the report using the report name and filter variables
DoCmd.OpenReport strDocName, , , strFilter
'Move to next Sales Rep
rst.MoveNext
'Loop back to top of Do Until
Loop
Else
' No Sales Reps Exist, inform the user and exit subroutine
MsgBox "No Sales Data for selected Rep", vbOKOnly, "No Reps"
Exit Sub
End If
Exit_cmdCreateBHPDFs_Click:
Exit Sub
Err_cmdCreateBHPDFs_Click:
MsgBox Err.Description
Resume Exit_cmdCreateBHPDFs_Click
End Sub[/code]
Is there a way to do this so that the files are saved with the strFilter as
the filename?
Any suggestions appreciated!
Thanks
.
- Prev by Date: Multiple Column Report - esp for Duane Hookom
- Next by Date: Re: Multiple Column Report - esp for Duane Hookom
- Previous by thread: Multiple Column Report - esp for Duane Hookom
- Next by thread: Re: Sub Total in Access Report
- Index(es):
Relevant Pages
|
Loading
