How do I print multiple reports to a directory at the same time

Question

I'm trying to print a list of monthly reports to a directory by using the code below. The first part of the code runs a query to select Business Units that will receive the reports. The idea is to cycle through this list and print one report for each
Business Unit.  These vary from month to month. I create a record set from that query.  Where I'm getting stuck is in trying to pass the Business unit selected in the first query to the query that runs the final report. I end up getting multiple
reports with different titles but the content is the same, so I'm doing something incorrect.  Here is the code.  Any help would be greatly appreciated. QryNewMOR runs the report.
Private Sub Cmd012815_Click()
    Dim qdf As DAO.QueryDef
    Dim strSQL As String
    Dim strPathName As String
    Dim blRet As Boolean
    Dim rs As DAO.Recordset
    Dim stDocName As String
    Dim strSavedSQL As String
    Dim strBus As String
    Dim strExec As String
    If Me.Dirty Then Me.Dirty = False
    stDocName = "RptNewMOR"
    strSQL = "SELECT [Business Unit Long],[Responsible Executive] FROM tblRespExec WHERE (((tblRespExec.SelectedPrint)=True));"
    Set rs = CurrentDb.OpenRecordset(strSQL)
    If rs.RecordCount < 1 Then
        MsgBox "No Bus lines or Execs selected", vbCritical, "Error"
        Exit Sub
    End If
   'CreateFolder "C:\Test MOR"
    'store the current SQL
    Set qdf = CurrentDb.QueryDefs("QryNewMOR")
    strSavedSQL = qdf.SQL
    qdf.Close
    Set qdf = Nothing
Do
    strBus = rs![Business Unit Long]
    strExec = rs![Responsible Executive]
    Set qdf = CurrentDb.QueryDefs("QryNewMOR")
   strSQL = strSQL + Left(strSavedSQL, InStr(strSavedSQL, ";") - 1) & " and (qryNewMOR.[Draft Distribution List]=" & rs![Responsible Executive] & ");"
    strSQL = strSavedSQL
    qdf.SQL = strSQL
    Debug.Print strSQL
    qdf.Close
    Set qdf = Nothing
    strPathName = "C:\Test MOR\" & rs![Business Unit Long] & ".pdf"
    DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, strPathName
    rs.MoveNext
Loop Until rs.EOF
rs.Close
Set rs = Nothing
'restore the SQL
Set qdf = CurrentDb.QueryDefs("QryNewMOR")
qdf.SQL = strSavedSQL
qdf.Close
Set qdf = Nothing
End Sub
Dean J. Waring

Answer 1

I'm trying to figure out how to combine the two and am obviously not succeeding. Do you have a suggestion on how to make that work?
Hi Dean,
I am not completely sure of what you want. I suppose you want to modify the SQL definition of QryNewMOR, and use that modified query for the report?
In that case, and in the line of your program, I would make a QueryDef: QryStdMOR, with the "standard" strSavedSQL (so: strSavedSQL =  QryStdMOR), construct strSQL in the same way, and assign this to the SQL definition of QryNewMOR.
Thus, in your code at the very beginning, skip the line strSQL = strSavedSQL.
strSQL = Left(strSavedSQL, InStr(strSavedSQL, ";") - 1) & " and (qryNewMOR.[Draft Distribution List]=""" & rs![Responsible Executive] & """);"
' skip this line: strSQL = strSavedSQL
qdf.SQL = strSQL
Within the loop you should not start with strSQL = strSQL & ...., because strSQL will retain then its value from the previous loop, and increases and increases...
Finally, I have added some double doublequotes around rs![Resposible Executive], because string expressions must be enclosed by double doublequotes (or eventually a single singlequote).
Imb.
 strSQL = strSQL + Left(strSavedSQL, InStr(strSavedSQL, ";") - 1) & " and (qryNewMOR.[Draft Distribution List]=" & rs![Responsible Executive] & ");"
    strSQL = strSavedSQL
    qdf.SQL = strSQL