반복 루핑 및 보고서 작성 불일치

Question

5 개의 테이블, 3 개의 쿼리, 3 개의 보고서 (쿼리는 레코드 집합) 및 3 개의 보고서 각각에 레코드 세트의 여러 필드를 표시하는 데이터베이스가 있습니다. 문제는 동일한 코드를 가지고 있더라도 서브 루틴 중 하나에 일관성없는 결과가 있다는 것입니다. 그것은 각 감독자를 순환하고 보고서를 작성한 다음 다시 수행하는 것과 같으며 반복적으로 처리되어 문제가 어디에 있는지 알 수 없습니다. 누군가가 도움이되기를 바랍니다.

Private Sub cmdFedInvest_Click() 
Dim x   As String 
Dim y   As String 
Dim StrSQL  As String 
Dim stWhereStr As String 'Where Condition' 
Dim stSection As String 'Selection from drop down list 
Dim stfile  As String 
Dim stDocName As String 
Dim StrEmail As String 

StrSQL = "SELECT DISTINCTROW [qryActT8_Sup].[Sup], [qryActT8_Sup].Sup_email " & _ 
"FROM [qryActT8_Sup];" 
    y = Year(Date) 

Dim db As DAO.Database 
Dim rst As DAO.Recordset 
Set db = CurrentDb 
Dim qdTemp As DAO.QueryDef 
Set qdTemp = db.CreateQueryDef("", StrSQL) 
Set rst = qdTemp.OpenRecordset() 

If rst.EOF And rst.BOF Then 
    MsgBox "No data available for the Ledger Process routine." 
Else 
    Debug.Print rst.Fields.Count 
    rst.MoveFirst 
    Do While Not rst.EOF 
     x = rst![Sup] 
     StrEmail = rst![Sup_email] 
     stDocName = "FedInvest - ISSR - T8 Recertification Report" 
     stWhereStr = "[qryActT8_Sup].[SUP]= '" & x & "'" 
     stfile = Me.txtLocationSaveFI & "\" & x & " - " & y & " FedInvest Recertification.pdf" 
     DoCmd.OpenReport stDocName, acPreview, , stWhereStr 
     'DoCmd.SendObject acSendReport, stDocName, acFormatPDF, StrEmail, , , "2016 FedInvest Recertification", "" 
     DoCmd.OutputTo acOutputReport, stDocName, acFormatPDF, stfile 
     DoCmd.Close acReport, stDocName 
     rst.MoveNext 
    Loop 
End If 
rst.Close 
Set rst = Nothing 
End Sub 

Answer 1

미리보기 및 PDF 출력용으로 보고서를 엽니 다.

PDF 만 필요한 경우 미리보기를 건너 뛰십시오.