Access Bericht öffnen mit speziellen Filtern
Hallo zusammen,
ich habe ein Access Formular, in diesem habe ich 3 Kombifelder mit folgenden Auswahlmöglichkeiten:
1. Auswahl: ZUBA(heißt so viel wie Abteilung), Zahl, TAble: Rohdaten.Feld:ZUBA
2. Auswahl: Periode(Datum dd.mm.yyyy), Datum, Table Korridor_Daten,Feld:Periode -> von
3.Auswahl: Periode(Datum dd.mm.yyyy), Datum, Table Korridor_Daten,Feld:Periode -> bis
Ein Button öffnet dann einen Bericht, basierend auf einer Abfrage.
Der Bericht soll mit og. Eingaben als Filter geöffnet werden.
Ein paar Screenshots zur Orientierung:
Table Rohdaten:
Table Korridor_Daten:
Abfrage aus der der Bericht entsteht:
Der Code, wird beim drücken des Buttons auf dem Formular ausgeführt:
Was mache ich da falsch? Die Daten kann man in die Kombifelder problemlos eingeben, beim Bericht wird aber rein gar nichts gefiltert, er gibt einfach den Inhalt der Abfrage ungefiltert aus.
Bitte um Hilfe!
Besten Dank!
Gruß Dr.
ich habe ein Access Formular, in diesem habe ich 3 Kombifelder mit folgenden Auswahlmöglichkeiten:
1. Auswahl: ZUBA(heißt so viel wie Abteilung), Zahl, TAble: Rohdaten.Feld:ZUBA
2. Auswahl: Periode(Datum dd.mm.yyyy), Datum, Table Korridor_Daten,Feld:Periode -> von
3.Auswahl: Periode(Datum dd.mm.yyyy), Datum, Table Korridor_Daten,Feld:Periode -> bis
Ein Button öffnet dann einen Bericht, basierend auf einer Abfrage.
Der Bericht soll mit og. Eingaben als Filter geöffnet werden.
Ein paar Screenshots zur Orientierung:
Table Rohdaten:
Table Korridor_Daten:
Abfrage aus der der Bericht entsteht:
Der Code, wird beim drücken des Buttons auf dem Formular ausgeführt:
Sub Befehl57_Click()
DoCmd.OpenReport "Bericht Korridor", acViewPreview, "ZUBA = " & Me!txtOrgEinh & " AND Periode >= " & Format(Me!datvon, "\#yyyy\/mm\/dd\#") & " AND Periode <= " & Format(Me!datbis, "\#yyyy\/mm\/dd\#")
End Sub
Was mache ich da falsch? Die Daten kann man in die Kombifelder problemlos eingeben, beim Bericht wird aber rein gar nichts gefiltert, er gibt einfach den Inhalt der Abfrage ungefiltert aus.
Bitte um Hilfe!
Besten Dank!
Gruß Dr.
Please also mark the comments that contributed to the solution of the article
Content-Key: 304880
Url: https://administrator.de/contentid/304880
Printed on: April 19, 2024 at 05:04 o'clock
2 Comments
Latest comment
Du hast einen Parameter zwischen acViewPreview und der Where-Condition nicht ausgelassen, etc pp ...siehe hier:
Das ganze kannst du auch ohne VBA erreichen indem du einen Filter direkt in die "Kriterien" der Abfrage einbaust (dort Verweis auf die Formularfelder) und nur den Bericht per Button öffnest, das nur als mögliche Abwandlung.
Gruß skybird
DoCmd.OpenReport "Bericht Korridor", acViewPreview, WhereCondition:="ZUBA = '" & Me!txtOrgEinh & "' AND Periode BETWEEN #" & Format(datvon.Value, "yyyy\/mm\/dd") & "# AND #" & Format(datbis.Value, "yyyy\/mm\/dd") & "#"
Gruß skybird