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ß
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.
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...
Hallo,
ich kenne Deine verwendeten Abfragen nicht...
Jedenfalls muss die Berichtsabfrage alle die Felder beinhalten, die auch im Filter-String benutzt sind....
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ß
Hallo,
dann mach das doch, vorher komprimieren/reparieren und zippen, evtl. auch datenreduziert.