Office: Abfrage mit Bedingung

Vgl. #4:

Es ist unklug, einen Hinweis eines MVP (nochmal Glückwunsch!) unbeachtet links liegen zu lassen.

Aus einem Datum kannst Du leicht andere Monate per DateDiff/DateAdd ableiten.

 

Wie meinst du das? Der Code bezieht sich doch auf das Datum, das in deinem Formular angegeben ist, jeweils minus 2 Monate - egal ob Februar oder was auch sonst. Verstehe jetzt das Problem nicht so ganz.
maike

 

Restlich bis ...? 3029? Weltuntergang?

Etwa so:
Code:

 

Eventuell soll nicht nur ein Monat ausgewertet werden sondern mehrere.
=>
Code:

Between kann man in diesem Fall nicht verwenden, da Jahr und Monat in getrennten Feldern stehen.
Ausnahme: bei wenigen DS, wenn kein Index genutzt werden soll:
Code:

Das könnte mit Parameter so aussehen:
Code:

(Bei vielen DS wird die Abfragegeschwindigkeit nicht besonders berauschend sein.)


[OT]

kleiner Einspruch: auch wenn mir die Ehre des MVP vergönntwurde, weiß ich nicht alles. *wink.gif*
...

 

\@Josef: "Alles" ist ein starkes Wort und sowieso unerfüllbar.

Aber mit dem "Wenigen" kommt man schon sehr weit, wenn man es denn erfasst und umsetzt, zumal ja ein guter Schachspieler nicht nur einen Zug vorausdenkt ...

 

\@Josef P. : Ahh, du meinst da ist so ein Rückblick über die letzten 12 Monate gemeint? MVP heißt wohl unter anderem auch Mit Verstand Prognostizieren *wink.gif*
Diese Salamitaktik beim Fragestellen ist aber auch manchmal etwas zu hoch für mich *grins
maike

 

Ich habe den Eindruck, ich habe mein zweites Anliegen nicht richtig erläutert und versuche es daher noch einmal.

Nach meinem Verständnis funktioniert die erste Abfrage so, dass im Normalfall (Monat 2-12) der Wert aus der Tabelle aus dem „aktuelle Jahr“ ermittelt werden kann (WHERE T.Jahr = Year(dateserial([Formulare]![frm_Monatsplanung]![JahrMa],). Nur beim Monat 1 muss der Wert aus dem Monat im Jahr davor (2008) genommen werden ([Formulare]![frm_Monatsplanung]![MonatMa] - 1, 1)

Jetzt bei meiner zweiten Abfrage, die fast genauso wie die erste Abfrage funktioniert, ermittle ich den Wert des VorVormonats (-2). Das heißt es gibt immer nur für den Monat Januar (1-2 = -1) und Februar (2-2=0) das Problem wie in der ersten Abfrage, die Monate beginnen mit „1“.
Ich habe daher die zweite Abfrage so aufgebaut:

SELECT T.Jahr, T.Monatszahl, T.mGehalt AS mGehaltv
FROM tb_KontostandMonatsende AS T
WHERE T.Jahr = Year(dateserial([Formulare]![frm_Monatsplanung]![JahrMa], [Formulare]![frm_Monatsplanung]![MonatMa] - 1, 1)) AND T.Monatszahl=Month(dateserial([Formulare]![frm_Monatsplanung]![MonatMa], [Formulare]![frm_Monatsplanung]![MonatMa] - 2, 1))
Or
WHERE T.Jahr = Year(dateserial([Formulare]![frm_Monatsplanung]![JahrMa], [Formulare]![frm_Monatsplanung]![MonatMa] - 1, 2)) AND T.Monatszahl=Month(dateserial([Formulare]![frm_Monatsplanung]![MonatMa], [Formulare]![frm_Monatsplanung]![MonatMa] - 2, 2))

Der zweite Teil der Abfrage nach Or funktioniert so leider nicht. Aber im Januar müsste der Wert aus November und im Februar der Wert aus Dezember angezeigt werden.


Gruß
Heinrich

 

\@Heinrich: schau dir einmal die VBA-Hilfe zu DateSerial an.
Syntax: DateSerial(year, month, day)
Ergebnis: Datumswert

Beispiel:
[FilterJahr] = 2009
[FilterMonat] = 1

DateSerial([FilterJahr], [FilterMonat] - 2, 1) ergibt: 01.11.2008 ... davon Year(...) ergibt: 2008 und Month() ergibt 11.

 

Bei mir ergibt DateSerial(2009,1 - 2, 1) den 01.11.2008 ;-)
maike

 

[OT]

hmm ... haben wir schon 2009? *biggrin.gif* *biggrin.gif* *biggrin.gif*

... Danke für die Korrektur maike! (ich änderte das nun im Beitrag #23)

 

Hallo Maike, Josef, Eberhard,
manchmal sieht man den Wald vor lauter Bäume nicht.
Ihr habt mir die Lösung für die zweite Abfrage genannt und ich habe es nicht erkannt. Die letzte Erläuterung von Josef hat mich erkennen lassen, dass ich komplizierter gedacht habe als notwendig. Die Abfrage funktioniert jetzt auch.
Nochmals vielen Dank für Eure Hilfe und Geduld mit mir.
Gruß
Heinrich