Beispieldatum generieren (nach Eingrenzungskriterien)

Question

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 ?   

Answer 1

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

Answer 2

Danke. Ich habe die Vorschläge umgesetzt und ergänzt. Geht jetzt