Office: Abfrage mit Bedingung

Hallo,
habe ein kleines Problem mit einer Abfrage. In einem Formular wird mit nachfolgender Abfrage aus der Tabelle „tb_KontostandMonatsende“ der Betrag aus dem Feld „mGehaltv“ (Vormonat: ...[MonatMa] – “1“) im Feld „mGehalt“ angezeigt.

SELECT tb_KontostandMonatsende.Jahr, tb_KontostandMonatsende.Monatszahl, tb_KontostandMonatsende.mGehalt AS mGehaltv
FROM tb_KontostandMonatsende
WHERE (((tb_KontostandMonatsende.Jahr)=[Formulare]![frm_Monatsplanung]![JahrMa]) AND ((tb_KontostandMonatsende.Monatszahl)=[Formulare]![frm_Monatsplanung]![MonatMa]-"1"));

Dazu fragt die Abfrage im Formular „frm_Monatsplanung“ das Feld „JahrMa“ (aktuelle Jahreszahl, z.B. 2009) und das Feld „MonatMa“ (aktuelle Monatszahl, z.B. 1) ab. Die Monatszahl geht von 1 bis 12 (Januar – Dezember). Der Tabelleninhalt sieht so aus:
Jahr Monatszahl mGehalt
2008 ... ...
2008 11 700,-
2008 12 600,-
2009 1 400,-

Die Abfrage funktioniert nur nicht in dem ersten Monat des Jahres, da 1-1 = Null ergibt und dieser Monat nicht existiert. Gibt es die Möglichkeit die Abfrage so anzupassen, dass in diesem Fall auf den Dezember des Vorjahres zurückgegriffen wird?
z.B. Ist Wert Feld „MonatMa“ = 1 dann nehme für Feld „MonatMa“ = 12 und für Feld „JahrMa“ = -1
Weiß jemand dazu eine Lösung?
Gruß
Heinrich

:)

 

Hallo Heinrich,

hier eine Antwort auf Dein

Probier das mal mit der IIF - Funktion. Du hast schon alles korrekt erkannt *Smilie .

Also vielleicht so für das Jahr:
Code:

Für den Monat kommst Du analog mit der IIF-Funktion weiter.

HTH,
Michael

 

Hallo Heinrich,
probiers mal damit (ungetestet):
Code:

 

Mit der Funktion DateSerial könnte es z.b. so aussehen:
Code:

.. diese Variante wäre noch einfacher, würden Jahr und Monat in einem einzigem Datumsfeld (z.B. immer der 1. des Monats) gespeichert sein.

 

Hallo Zusammen,
erst mal Danke für die Vorschläge.
Ich komme aber leider zu keinem Ergebnis.

Michael, Deinen Vorschlag habe ich wie folgt erweitert:
...IIF([Formulare]![frm_Monatsplanung]![MonatMa] = 1, [Formulare]![frm_Monatsplanung]![JahrMa] - 1, [Formulare]![frm_Monatsplanung]![JahrMa]) AND IIF([Formulare]![frm_Monatsplanung]![MonatMa] = 1, [Formulare]![frm_Monatsplanung]![MonatMa] = "12", [Formulare]![frm_Monatsplanung]![MonatMa])

Ich erhalte aber leider kein Ergebnis angezeigt bzw. wenn ich nur den Teil für das Jahr oder Monat verwende, wird alles angezeigt. Was habe ich hier falsch gemacht?

Taheitall, Deinen Vorschlag habe ich so übernommen, erhalte aber immer wieder den Hinweis "Syntaxfehler im Abfrageausdruck...". Kenne mich aber in SQL nicht so aus um den Fehler zu finden.

Hallo Peter,
Dein Vorschlag ist zwar gut gemeint, aber ich kann die Tabelle mit den Datenfeldern leider nicht ändern und brauche daher eigentlich eine Lösung zu den mir vorgegeben Datenfeldern.

Wer kann mir da weiterhelfen.
Danke
Gruß
Heinrich

 

Hallo Heinrich,
zu deinem letzten Beitrag: Wenn du mit "Peter" Josef P. meinst, dann guck dir dessen Vorschlag noch einmal genau an. Er bezieht sich direkt auf die dir vorliegenden Felder. Der Zusatz sagt ja nicht umsonst "wäre" und "würden" ... *Smilie
maike

 

Hallo,

ersetzt die semicolons (*wink.gif* durch Kommas!!
Sorry!

 

so sollte es gehen:

Code:

 

Hallo Josef,
bitte entschuldige die Namensverwechselung.
Hallo Maike,
ich bin Deinem Rat gefolgt und habe den Code von Josef wie folgt übernommen:

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

Reaktion: Zuerst werden die Felder T.Jahr, MonatMa, T.Monatszahl und JahrMa abgefragt und dann erhalte ich folgenden Fehlerhinweis:
„Dieser Ausdruck wurde falsch eingegeben, oder er ist zu komplex, um ausgewertet zu werden. Beispielsweise kann ein nummerischer Ausdruck zu viele komplizierte Elemente enthalten. Vereinfachen Sie den Ausdruck, indem Sie Teile des Ausdrucks Variablen zuweisen.“

Was mache ich hier falsch? Müssen die Felder wie [JahrMa] eventuell ein besonderes Format haben?

Hallo Takeitall,
jetzt erhalte ich den Hinweis. "Syntaxfehler (Komma) in Abfrageausdruck..."
Wie komme ich da jetzt weiter?

Gruß
Heinrich

 

Josef hat in seinem Beispiel einen Aliasnamen für die Tabelle verwendet. Dieser muss dann natürlich konsequent in der ganzen SQL-Anweisung Anwendung finden (eine Tabelle T muss irgendwo herkommen):
Code:

 

Hallo Heinrich,

Bei deinem Code musst du noch das Alias für deinen Tabellennamen sauber einsetzen, also folgendes einfügen/ändern:
SELECT T.Jahr, T.Monatszahl, T.mGehalt AS mGehaltv
FROM tb_KontostandMonatsende AS T
WHERE T.Jahr = Year(dateserial([JahrMa], [MonatMa] - 1, 1)) AND T.Monatszahl=Month(dateserial([JahrMa], [MonatMa] - 1, 1))

Ich rate dir auch, das Feld "Jahr" umzubenennen (in KontoJahr o.ä.), weil Jahr ein reserviertes Wort ist (z.B. für die Funktion Jahr bzw. Year).

maike

 

Eberhard hat in #10 den SQL-Ausdruck, wei ich ihn mir vorstellte übersichtlich dargestellt.
Die Parameter [JahrMa] und [MonatMa] musst du allerdings noch mit deinen Formularbezügen ergänzen.

Anm.: ich kürzte den SQL-Text im Beitrag #4, damit das Prinzip erkennbar wird, denn was hilft ein SQL-Text, wenn man aufgrund der Unübersichtlichkeit nicht mehr lesen kann, was darin passiert. *wink.gif*

 

Hallo Josef,Maike, Eberhard
dies eine geniale Lösung von Dir, sie funktioniert toll.
Ich habe allerdings noch eine Steigerung, denn es gibt in dem Formular noch ein Feld das den vorVorwert anzeigen soll (im Januar den Wert aus November). Mit folgenden Code kann ich den Monat Januar abdecken:
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))

Aber den Monat Februar bekomme ich nicht hin? Kann man den Code noch erweitern?

Gruß
Heinrich

 

WHERE T.Jahr = Year(dateserial([Formulare]![frm_Monatsplanung]![JahrMa], [Formulare]![frm_Monatsplanung]![MonatMa] - 2, 1)) AND T.Monatszahl=Month(dateserial([Formulare]![frm_Monatsplanung]![JahrMa], [Formulare]![frm_Monatsplanung]![MonatMa] - 2, 1))

denke ich mal.
maike

Edit: guck mal in der VBA-Hilfe nach der Funktion DateSerial, die benötigt immer (Jahr, Monat, Tag) als Argumente.

 

Hallo Maike,
danke für den Hinweis. Den Code für den Monat Februar kann ich schon entsprechend anpassen. Aber der Code müsste den Monat Januar, Februar und die restlichen Monate zusammen abdecken.
Gruß
Heinrich