Berichte anzeigen/speichern als PDF mit Filter

[Schnitzl]

Hallo,

ich möchte einen Bericht speichern und anzeigen, aber nur für die aktuell gefilterten Datensätze. Bisher versuche ich das wie folgt:

Private Sub cmdBerichtMehrere_Click()
Dim stDocName As String

    stDocName = "repSchluesselverleihMehrere"
    DoCmd.OpenReport stDocName, acPreview, , IIf(Me.FilterOn, Me.Filter, Null)
    DoCmd.OutputTo acOutputReport, "repSchluesselverleihMehrere", acFormatPDF _
   
End Sub

Allerdings funktioniert es nicht zu filtern, der Bericht wird ungefiltert angezeigt und als PDF gespeichert und ich weiß nicht worin der Fehler liegt :/?

Gruß

[DF6GL]

Hallo,

versuch mal:

If Me.Filter <> "" then
   DoCmd.OpenReport stDocName, acPreview, , Me.Filter
   Currentdb.Querydefs!qry_SchluesselverleihMehrere.SQL = "Select * from tblDeineBerichtstabelle where " & Me.Filter
    DoCmd.Printout  acOutputReport, "repSchluesselverleihMehrere", acFormatPDF ......
End if




dabei ist "qry_SchluesselverleihMehrere" eine Abfrage, auf der der Bericht basiert (in dessen Datenherkunft steht) und "tblDeineBerichtstabelle"  der Name der Tabelle, aus denen die Berichtsdaten herrühren.

[Schnitzl]

Hallo,

das funktioniert leider auch nicht, ich hab jetzt das drucken mal weggelassen um nur die Vorschau mal hinzubekommen, mein Code ist nun wie folgt:

Private Sub cmdBerichtOeffnen_Click()
Dim stDocName As String

If Me.Filter <> "" Then
    DoCmd.OpenReport "repSchluesseluebergabeprotokoll", acPreview, , Me.Filter
    CurrentDb.QueryDefs!qryUebergabeprotokoll.SQL = "Select * from tblSchluessel where " & Me.Filter
End If

End Sub

Will ich die Prozedur aber ausführen, werden nochmal alle Inhaberangaben abgefragt (InfhaberF_ID, Inhabername, und Telefon) und egal was ich eingebe kommt meine komplette Schlüsselliste mit den Angaben, die ich in die Auswahlfelder eingebe. Also es filtert auch nicht...

[DF6GL]

Hallo,

ich kenne Deine verwendeten Abfragen nicht...


Jedenfalls muss die Berichtsabfrage alle die Felder beinhalten, die auch im Filter-String benutzt sind....

[Schnitzl]

Hallo,

Problem soweit gelöst, ich bin jetzt mal soweit, dass ich Formular und Bericht auf der gleichen Abfrage aufbau und nicht Formular auf Tabelle und Bericht auf Abfrage. Hat auch schonmal geholfen, einzige Problem ist, dass ich im Formular dann immer noch ein Auswahlfeld mit D-D-Menü habe. Wenn ich danach Filter klappt es immer noch nicht mit der Weitergabe an den Bericht... Habs jetzt mal soweit, dass ich einfach nach anderen Sachen filter, falls du doch noch ne Idee hättest, oder dir die DB mal anschaun würdest könnt ich Sie auch mal hochladen...

Gruß

[DF6GL]

Hallo,

dann mach das doch, vorher komprimieren/reparieren und zippen, evtl. auch datenreduziert.