Inkonsistenzen beim Durchlaufen und Erstellen von Berichten

Question

Ich habe eine Datenbank mit 5 Tabellen, 3 Abfragen, 3 Berichte (die Abfragen sind die Recordsets) und drei Berichte, die jeweils die verschiedenen Felder auf den Recordsets zeigen. Das Problem ist, obwohl eine der Unterroutinen, obwohl sie denselben Code haben, inkonsistente Ergebnisse hat. Es ist so, als ob es jeden Supervisor durchläuft und einen Bericht erstellt und es dann erneut macht. Es befindet sich in einer Schleife und ich kann nicht sehen, wo das Problem liegt. Hoffe, dass jemand helfen kann.

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

Sie beide öffnen den Bericht für die Vorschau und für die Ausgabe in PDF.

Wenn nur PDF benötigt wird, überspringen Sie die Vorschau.