Fragensteller
Beispieldatum generieren (nach Eingrenzungskriterien)

Frage
-
in einem vorhergehenden Beitrag habe ich schon geschrieben, daß ich über die Einträge eines Kombifeldes die Datumskriterien eines UNterformulars eingrenze.
Das geht mit diesem Code:
Select Case cbxZeitraum.Value Case "Voriges Quartal" 'Jahr([Verkaufsdaten])*4+DatTeil("q",[Verkaufsdaten]) = Jahr(Datum())*4+DatTeil("q",Datum())- 1 'Jahr([Verkaufsdaten]) = Jahr(Jetzt()) Und DatTeil("q", Datum()) = DatTeil("q", Jetzt()) filterstr = "year([RE_Rechnung_bezahltDatum]) *4+datepart('q',[RE_Rechnung_bezahltDatum])= year(now()) *4+datepart('q',now())-1" Case "Aktuelles Quartal" 'Jahr([Verkaufsdaten]) = Jahr(Jetzt()) Und DatTeil("q", Datum()) = DatTeil("q", Jetzt()) filterstr = "year([RE_Rechnung_bezahltDatum]) = year(now()) and Datepart('q', now()) = Datepart('q', [RE_Rechnung_bezahltDatum])" Case "Voriger Monat" filterstr = "year ([RE_Rechnung_bezahltDatum]) * 12 + Datepart('m', [RE_Rechnung_bezahltDatum]) = year(now()) * 12 + Datepart('m', now()) - 1" Case "Aktueller Monat" 'Jahr([Verkaufsdaten]) = Jahr(Jetzt()) Und Monat([Verkaufsdaten]) = Monat(Jetzt()) filterstr = "year([RE_Rechnung_bezahltDatum]) = year(now()) and month([RE_Rechnung_bezahltDatum])=month(now())" Case "Voriges Jahr" 'Jahr([Verkaufsdaten]) = Jahr(Datum()) - 1 filterstr = "year([RE_Rechnung_bezahltDatum]) = year(now())-1" Case "Aktuelles Jahr" 'Jahr([Verkaufsdaten]) = Jahr(Datum()) filterstr = "year([RE_Rechnung_bezahltDatum]) = year(now())" Case Else Debug.Print cbxZeitraum.Value Beep Stop End Select Me.sFrmZahlungseingaenge.Form.Filter = filterstr Me.sFrmZahlungseingaenge.Form.FilterOn = True
Die Filterstrings sind nach Beispielen aus dem Internet angepasst und funktionieren schon prima.
Als Goodie hätte ich gerne, wenn in einem Textfeld nach Anwahl des Kriteriums ein beispiel erscheint.
Also etwa so:
Aktueller Monat Januar 2013
Voriger Monat Dezember 2012
Voriges Quartal 4/2012
usw.
Gibt es dafür eine elegante Lösung ?
Alle Antworten
-
Hallo,
NicoNi wrote:
[...]
Als Goodie hätte ich gerne, wenn in einem Textfeld nach Anwahl des
Kriteriums ein beispiel erscheint.
Also etwa so:
Aktueller Monat Januar 2013
Voriger Monat Dezember 2012
Voriges Quartal 4/2012
usw.Luftcode:
Private Sub DeinKombi_AfterUpdate() Select Case Me!DeinKombi.Value Case "Aktueller Monat" Me!DeinText.Value = date Me!DeinText.Format = "MMMM YYYY" Case "Vormonat" Me!DeinText.Value = DateSerial(Year(date), Month(date), 0) Me!DeinText.Format = "MMMM YYYY" Case "letztes Quartal" Me!DeinText.Value = DateSerial(Year(date), Month(date) - 3, 1) Me!DeinText.Format = "Q\/YYYY" End Select End Sub
Gruss - Peter
Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com- Als Antwort vorgeschlagen Peter DoeringMVP, Moderator Dienstag, 29. Januar 2013 23:41