Office: (Office 2003) PivotChart als Unterformular mit VBA nach Datum filtern

Guten Morgen zusammen,

@Rudolf: Hier der Code, kommt die Meldung : "Fehler: 0" (siehe Anhang)
Glaube aber eher das das Feld beschw_eingang kein Datum liefert oder?

Code:

 

*rolleyes.gif* Was treibst du denn da bloß immer *rolleyes.gif* .
Die Datums sind nicht so formatiert, wie wir das besprochen hatten.
Die Anweisung "Wenn strDatumBeginn ein Datum ist und wenn strDatumEnde ein Datum ist, dann gehe zur Fehlerbehandlung" ist doch kompletter Blödsinn.
Der Befehl OpenForm gehört vor die Fehlerbehandlung.
maike

 

Hallo maikek,

ich habe beide Versionen probiert, auch die Formatierung mit Datum. Habe es wieder umgeändert um zu schauen ob sich was ändert in der Fehlermeldung sorry. Bin halt etwas am rumtesten.
Auch die Fehlerbehandlung habe ich nach OpenForm eingesetzt, trotzdem die selbe Fehlermeldung....Habe jetzt die Fehlerbehandlung gelöscht.

Keine Ahnung wieso aber habe jetzt den Pivotchart aus dem Unterformular gelöscht (heute morgen) und jetzt funktioniert es so wie ich es haben möchte :-)

Hier nochmal der End-Code:

Code:

 

Die Fehlerbehandlung ist schon ok, nur richtig sollte sie sein *wink.gif* :
Code:

Edit: Das Phänomen mit dem Löschen des Charts könnte dadurch zu erklären sein, dass dort ein alter Filter noch "hängengeblieben" ist, der auf diese Weise dann entfernt wurde. Das passiert manchmal, wenn man öfter zwischen Entwurfs- und Formularansicht hin- und herschaltet.

maike

 

Thx nochmal für den Tip.

Habe das Eingabeformat für das Feld auf Datum gestellt, daher die IF-Funktion umgestellt, damit das Start Datum immer grösser als Enddatum ist...

Funktioniert einwandfrei....hier der Code nochmal:

Code:

 

Hallo
So würde das bei mir aussehen : *wink.gif*

Code:

Resultat in strFilter
[beschw_eingang] Between #3/7/2013# And #3/10/2013#
(Between ist das gleiche wie >= .. and txtendDate
bin ich mir NICHT so sicher das dass mit Text-Felder immer Richtig Funktioniert !!

 

Hallo zusammen,

nun habe ich ein weiteres Problem da ich nun die Pivotcharts in PDF (PDF Creator) umwandeln möchte. Mein Formular sieht nun folgend aus:

Ich habe immer noch mein StartDate und EndDate für das Filterkriteriumsfeld beschw_eingang. Nun habe ich weiterhin 14 Button die jeweils ein einziges Pivotchart öffnen und das funktioniert einwandfrei (siehe vorherige Beiträge). Nun habe ich rechts von jedem Button (Pivotchart) eine Auswahlmöglichkeit per Checkbox (z.B. chkAbteilungKategorieOA) ein Häckchen zu setzten. Mit einem weiteren Button "cmdUmwandelnPDF" möchte nun die mit Checkbox ausgewählten Pivotcharts mit dem beschw_eingang Filterkriterium als eine einzige PDF abspeichern.
Der Name vom PDF setzt sich zusammen aus "Auswertung von" und txtstartDate bis txtendDate. Wie bei Word oder Excel soll dann die "Speichern Unter" Funktion genützt werden um die PDF Datei endgültig am gewünschten Ort bzw. Ordner abzuspeichern.

Habe nun folgenden Code benützt aber bekomme schon Fehlermeldung bei Kompilieren:

Code:

Weiterhin möchte ich natürlich im Code auch mehre Checkbox (z.B. chkStationKategorieOA) mit entsprechende Pivotcharts einbauen (If-Then). Da würde aber der Code sehr lang werden. Gibt es da auch schönere Möglichkeiten den Code zu verkürzen?

Hier der Gesamtcode bisher nur für eine Checkbox:
Code:

 

Edit: Werde ein neues Thread aufmachen da ja eigentlich die vorherige Frage beantwortet ist.

 

Hallo
schön das Du das getestet hast
ist doch kürzer al mit "\#yyyy\-mm\-dd\#")
und wenn man BuildCriteria einmal gewohnt ist so kann man das bei jedem Feldtyp (Datum/Zahl(Curency) Text(Memo) einsetzen und er mact immer einen Strig der gut ist für Filter und/oder Wehre *Smilie