none
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 ?   

    Dienstag, 29. Januar 2013 13:02

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

    Dienstag, 29. Januar 2013 15:32
    Moderator
  • Danke. Ich habe die Vorschläge umgesetzt und ergänzt. Geht jetzt

    Dienstag, 29. Januar 2013 19:42