05.10.2009

30225

Access VBA, Bericht filtern

Wie kann ich einen Bericht per VBA nach Datum (von... bis...) filtern?

Hallo Wissende

Ich brauche eurern fachmännischen Rat! Ich habe einen Bericht den ich mit einer Abfrage als Grundlage generiert habe. In diesem Bericht habe ich ein Feld welches ein Datum enthält. Nun soll man in diesem Bericht so filtern können das nur die Datensätze angezeigt werden, die in einer gewissen Zeitspanne liegen (von/bis).

Ich habe mir das so gedacht:
Ich habe ein Formular, welches zwei ungebundene Textfelder und ein Button enthält. In die Textfelder gebe ich die Datum Werte "von" und "bis" ein. Beim klick auf den Button öffnet sich dann der Bericht, und zwar nur mit den Datensätzen die in dieser Zeitspanne liegen!

Leider habe ich keine Ahnung wie der Code dazu aussehen sollte

ABER! Ich weiss das Ihr es wisst!

MfG Valume

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 126464

Url: https://administrator.de/contentid/126464

Ausgedruckt am: 22.11.2024 um 10:11 Uhr

22 Kommentare

Neuester Kommentar

Hallo,

ungefähr so:

Private Sub cmdAusgabe_Click()
On Error GoTo Err_cmdAusgabe_Click

    Dim stDocName As String

    stDocName = "rptReport"  
    DoCmd.OpenReport stDocName, acPreview, , setFilter()   

Exit_cmdAusgabe_Click:
    Exit Sub

Err_cmdAusgabe_Click:
    MsgBox Err.Description
    Resume Exit_cmdIntPrg_Click
    
End Sub

Private Function setFilter() As String
Dim sFilter, sVon, sBis As String
    sFilter = ""  
    
    If Me.txtDatVon <> "" Then  
      sVon = "Datum >= " & SQLDate(Me.txtDatVon)  
    End If
      
    If Me.TxtDatBis <> "" Then  
      sBis = "Datum <= " & SQLDate(Me.TxtDatBis)  
    End If
      
    If sVon = "" And sBis = "" Then  
      sFilter = "Datum > #01/01/1900#"  
    Else
      If sVon <> "" And sBis <> "" Then  
        sFilter = sVon & " And " & sBis  
      Else
        If sVon = "" Then  
          sFilter = sBis
        Else
          sFilter = sVon
        End If
      End If
    End If
                    
    setFilter = "(" & sFilter & ")"  
    
End Function


Private Function SQLDate(InDate As String) As String
  Dim sDay, sMonth, sYear As String
  Dim sDatVal As String

  sDatVal = DateValue(InDate)

  sDay = Day(sDatVal)
  sMonth = Month(sDatVal)  
  sYear = Year(sDatVal)

  SQLDate = "#" & sMonth & "/" & sDay & "/" & sYear & "#"  

End Function

Wird aus dem Formular, mit dem die Tabelle/Abfrage verknüpft ist, aufgerufen, über den Button "cmdAusgabe". Das Datumsfeld im Formular heißt "Datum", die Von/Bis-Felder heißen txtDatVon bzw. txtDatBis. Über setFilter wird ein SQL-Ausdruck zum Filtern der Ausgabe generiert, fehlen EInträge in Von/Bis wird jeweils alles (vorausgesetzt, es gibt keine EInträge vor dem 1.1.1900) ausgegeben. Die Funktion SQLDate ist notwendig, um das Datum SQL-gerecht zu formatieren.
Hope this helps.
Viele Grüße

andere Variante "ohne Programmieren":
die Daten auf denen der Bericht basiert kommen aus einer Abfrage, nicht nur einer Tabelle (dürfte aber 1:1 sein), dann kommen in die Abfrage Kriterien hinzu, die mit dem Ausdrucksassistenten (geladene Formulare, Felder, Wert) aufgebaut werden: sieht in etwa so aus: >Forms![NameDesFormulars]![NameDesFeldes], fertig! ("in etwa" weil ich mir nicht merken kann, ob das nun deutschsprachig oder englisch generiert wird, macht aber der Ausdrucksassistent)
Das Formular muß beim Anzeigen des Berichtes offen sein.
Vorteil: intuitiv, Nachteile: es muß dokumentiert werden, daß die Abfrage vom Formular abhängt, Access (

)

Tag zusammen

Danke für die schnellen Antworten!

@jhinrichs

Wird aus dem Formular, mit dem die Tabelle/Abfrage verknüpft ist, aufgerufen, über den Button "cmdAusgabe".

Der Button "cmdAusgabe" sowie die von-bis Felder sollten sich eigentlich in einem Formular befinden das keine Datenherkunft hat. Es existiert nur um den Bericht zu filtern.
Der Bericht: "ber_QBericht" hat direkt die Abfrage als Datenherkunft.
Ausserdem habe ich den Bericht nirgends in deinem Code gefunden. Wie geht das dann das er gefiltert wird?

@broecker
Wenn ich dich richtig verstanden muss ich dann immer in der Abfrage die Kriterien anpassen.
Es sollte aber so sein das man dies direkt über ein kleines Formular tun kann das sich "vor" dem Bericht öffnet.

MfG Valume

Hallo,
ich weiß jetzt nicht genau, ob ich verstanden habe, was Du meinst, aber hier wird der Bericht geöffnet (angepasst auf Dein Beispiel):

stDocName = "ber_QBericht"  
DoCmd.OpenReport stDocName, acPreview, , setFilter()    

Eine Verknüpfung der Abfrage mit dem Formular ist nicht notwendig, der Filter ist ja letztlich ein SQL-WHERE-Statement, welches von DoCmd.OpenReport ausgewertet wird.

Die Lösung von broecker sollte auch gehen, Du musst aber eine extra Abfrage für den Bericht erstellen, die dann die Kriterien enthält.

Hi jhinrichs
Danke erstmal für die Antwort. Ich probiers morgen aus!
MfG Valume

nein, es wird in der Abfrage immer das auf dem Formular eingetragene Datum berücksichtigt, geht wirklich ganz einfach:

Feld Datum
<=FormularDatumEnde UND >FormularDatumBegin

Tag zusammen

Ich habe eure Vorschläge nun ausprobiert.
@broecker
Hat funktioniert. Leider ist dies für mich unpraktisch, da mehrere Berichte auf die selbe Abfrage zugreifen. Und so kommt immer beim einen die Meldung das das entsprechende Formular nicht geöffnet ist.

@jhinrichs
Beim Code kommt bei mir die Fehlermeldung:

Fehler beim kompilieren.
Sprungmarke nicht definiert.

Und folgende Zeile wird Blau markiert:
Resume Exit_cmdIntPrg_Click

Was mache ich falsch?

Edit sagt:

Ich habs jetzt mit dem Code von jhinrichs gelöst. Der Fehler ging weg als ich die Zeile

Resume Exit_cmdIntPrg_Click

gelöscht habe. xD

Andere Frage:
Ich würde jetzt gerne noch bei gewissen Feldern (sagen wir "felda" und "feldb") aufsteigen bzw absteigend sortieren. Wie geht das?
Diese Funktion sollte auch im gleichen Formular eingebaut sein wie die für die Zeitspanne.

Lg Valume

der Bericht könnte im Hintergrund (Ereignis "Beim Laden") das Formular öffnen, aber warum nicht mehrere Berichte?

Sorry, die Zeile ist noch als Fragment aus meiner Anwendung stehen geblieben, kein Wunder, dass er sie angemeckert hat. Sie muss in dem Beispiel so lauten:

Resume Exit_cmdAusgabe_Click

Die Sortierung kannst Du über die Schaltfläche "Sortieren und Gruppieren" in der Entwurfsansicht des Berichtes festlegen.

Ja das mit dem Formular öffnen wäre eine Möglichkeit, wenn auch unschön.
Habe jetzt wie gesagt den Code von jhinrichs genommen, und hat prima funktioniert.
Danke trotzdem für deine Hilfe broecker!
Vieleicht weist du ja eine Antwort auf meine neue Frage bezüglich auf- bzw. absteigend sortieren.

MFG Valume

Tag jhinrichs

Danke ich werden den Teil wieder einfügen ;)

Die Sortierung kannst Du über die Schaltfläche
"Sortieren und Gruppieren" in der Entwurfsansicht des
Berichtes festlegen.

Jup ist klar, nur soll der User die Sortierung selbst festlegen können, und der kommt nunmal nicht in die Entwurfsansicht. Man sollte also bereits im "Datumfilternformular" die Kriterien für die Sortierung eingeben können.
Ist das möglich?

MfG Valume

Meines Wissens nicht direkt. Du könntest aber über z.B. ein Auswahlfeld (nennen wir es mal "cboAuswahl") verschiedene vorsortierte Berichte auswählen lassen und dann im Programmcode die Zeile

stDocName = "ber_QBericht"

durch so etwas wie

stDocName = Me.cboAuswahl

ersetzen.
Auf die gleiche Art könnte man in der DoCmd.OpenReport-Methode das Filter-Argument auswählen, um dem Bericht eine bestimmte (sortierte) Abfrage zuzuweisen, aber da wird es dann schon wieder etwas komplizierter, so dass Du da, ggf. mit Hilfe der Hilfefunktion zur OpenReport-Methode, etwas experimentieren solltest.

Tag zusammen

Ich möchte diesen Beitrag neu aufnehmen.
Das mit dem auf- bzw. absteigend Sortieren habe ich aufgegeben.
Nun aber etwas neues, ähnlich der Datum sortieren funktion:
Im selben Formular ( "frm_KriterienBericht") habe ich ein zusätzliches ungebundenes Textfeld ("Erfasser").
Nun möchte ich das mit einem Klick auf den selben Button wie bei der Sortierung nach Datum, der Bericht nach dem Inhalt von "Erfasser" gefiltert wird. Das Feld in der Abfrage dazu heisst "ErfasstGruppe_IDFS".
Wie lautet der Code hierzu?
Er sollte nicht sehr anders als der vorherige sein oder?

MfG Valume

Stimmt. (Fülltext um die dreißig Zeichen aufzufüllen)
das ganze Projekt müssen wir ja nicht lösen, nur noch bedingt

Da hast du auch wieder recht

Ich kapier nur leider nicht wie ich der Filtern Befehl funktioniert.
Den Rest kann ich ja mit if oder case lösen.

Hallo,
der Filter ist ein String (im Beispiel in der setFilter-Funktion erstellt), der dem Bedingungsteil eines SQL-SELECT-WHERE-Statements entspricht.
Beispiel:
SQL:

SELECT Feld1, Feld2 FROM tblTabelle WHERE Id = "test"

Filter:

Id = "test"

Konkret:
Du müsstest an den Filterstring in der Funktion setFilter() anhängen:

setFilter = setFilter & "And ErfasstGruppe_IDFS = " & Me.Erfasser

natürlich nur, wenn Erfasser nicht leer ist (sonst kommt ein Syntaxfehler)
Tipp dazu: nach der Codeänderung setze einmal einen Breakpoint in die setFilter-Funktion und schaue Dir per Einzelschrittverarbeitung an, wie sich der setFilter-String zusammenbaut.

Hi jhinrichs

Ich war in den Ferien deshalb konnte ich dieen Thread lange nicht weiterverfolgen.
Tut mir leid aber ich verstehe praktisch nichts von dem was du geschrieben hast.

Ich muss ja irgendwie die Setfilter Variable anpassen oder?
(Es sollen beide Filter funktionieren, also nach vonbis und nach dem Wert im Feld "durch1")

Also was muss ich bei

setFilter = "(" & sFilter & ")"

einfügen damit zusätzlich noch noch nach "durch1" gefiltert wird? Also wie füge ich das ein damit immer noch nach vonbis gefiltert wird?

lg Valume

Hallo,
was ist "durch1"?
Oben war von "Erfasser" die Rede, geht es darum?

ja durch1 ist der Erfasser, bzw das Feld in dem das Filterkriterium steht.

Hallo,
s.o.:
(Sorry, habe oben setFilter geschrieben, meinte die lokale Variable sFilter, in der der String zusammengebaut wird)

sFilter = sFilter & "And ErfasstGruppe_IDFS = " & Me.Erfasser

natürlich nur, wenn Me.Erfasser nicht leer ist (sonst kommt ein Syntaxfehler)

für letzteres müsstest Du eine if-Abfrage bauen. Diesen Block fügst Du vor

setFilter = "(" & sFilter & ")"

ein, was als letzte Zeile nur noch einmal Klammern um die Abfrage baut, die nicht zwingend erforderlich sind, die Zeile könnte auch lauten:

setFilter = sFilter

Um die Funktionsweise zu verstehen, noch einmal die Empfehlung, im VB-Editor einen Haltepunkt zu Beginn der setFilter-Funktion zu setzen und dann mit Einzelschritten den Zusammenbau des Filterausdrucks verfolgen.

Hi jhinrichs

das Ende des codes sieht nun so aus:

If Me.durch1.Value = "" Then  
setFilter = "(" & sFilter & ")"  
Else
sFilter = sFilter & "And ErfasstGruppe_IDFS = " & Me.durch1  
setFilter = sFilter
End If

Beim Klick auf den Button kommt jedoch immer die Meldung:
Parameterwert eingeben: ErfasstGruppe_IDFS

Muss ich ErfasstGruppe_IDFS noch sonst wo haben als in der Abfrage?

Gruss Valume