Thema Datum  Von Nutzer Rating
Antwort
30.11.2005 10:42:37 Mishelle
NotSolved
30.11.2005 13:30:46 Rasta
NotSolved
30.11.2005 15:35:52 Mishelle
NotSolved
30.11.2005 16:10:31 Rasta
NotSolved
01.12.2005 09:16:12 Mishelle
NotSolved
01.12.2005 09:24:48 Rasta
NotSolved
01.12.2005 09:53:35 Mishelle
NotSolved
01.12.2005 10:44:58 Rasta
NotSolved
Rot Aw:laufende Berechnung mit VBA
01.12.2005 11:13:19 Mishelle
NotSolved
01.12.2005 11:52:14 Rasta
NotSolved
01.12.2005 11:59:57 Mishelle
NotSolved
01.12.2005 12:42:37 Rasta
NotSolved
01.12.2005 12:53:10 Mishelle
NotSolved
01.12.2005 13:09:25 Rasta
NotSolved

Ansicht des Beitrags:
Von:
Mishelle
Datum:
01.12.2005 11:13:19
Views:
997
Rating: Antwort:
  Ja
Thema:
Aw:laufende Berechnung mit VBA
Hallo Rasta :)

ich weiß jetzt wo der Fehler war. Hätte Year(Datum)=2004 in Gänsefüßchen setzen sollen. Das ist übrigens das Kriterium. Habe ja die Spalten MJ+, MJ- und Datum in meiner Abfrage (hinterlegt in me.recordsource). Und dieses Year(Datum)=2004 bewirkt, dass nur die Werte aus MJ+ und MJ- addiert werden, die vom Jahr 2004 sind.
Und das NZ ist da, damit ich nicht diese Fehlermeldung "unzulässige Verwendung von Null" bekomme. Manchmal gibt es bei MJ+ oder MJ- keine Werte.

Aber noch eine Sache lieber Rasta :)

[Code]
endstand2003 = 4.43
endstand2004 = Nz(DSum("[MJ+]", Me.RecordSource, "Year(Datum) = 2004")) - Nz(DSum("[MJ-]", Me.RecordSource, "Year(Datum) = 2004")) + endstand2003
endstand2005 = (Nz(DSum("[MJ+]", Me.RecordSource, "Year(Datum) = 2005")) - Nz(DSum("[MJ-]", Me.RecordSource, "Year(Datum) = 2005"))) + endstand2004
endstand2006 = (Nz(DSum("[MJ+]", Me.RecordSource, "Year(Datum) = 2006")) - Nz(DSum("[MJ-]", Me.RecordSource, "Year(Datum) = 2006"))) + endstand2005
endstand2007 = (Nz(DSum("[MJ+]", Me.RecordSource, "Year(Datum) = 2007")) - Nz(DSum("[MJ-]", Me.RecordSource, "Year(Datum) = 2007"))) + endstand2006
endstand2008 = (Nz(DSum("[MJ+]", Me.RecordSource, "Year(Datum) = 2008")) - Nz(DSum("[MJ-]", Me.RecordSource, "Year(Datum) = 2008"))) + endstand2007
endstand2009 = (Nz(DSum("[MJ+]", Me.RecordSource, "Year(Datum) = 2009")) - Nz(DSum("[MJ-]", Me.RecordSource, "Year(Datum) = 2009"))) + endstand2008
endstand2010 = (Nz(DSum("[MJ+]", Me.RecordSource, "Year(Datum) = 2010")) - Nz(DSum("[MJ-]", Me.RecordSource, "Year(Datum) = 2010"))) + endstand2009
Me.txt_p_ohnepo = endstand2005
[/Code]

Habe ja in der letzten Zeile angegeben, dass in meinem Textfeld txt_p_ohnepo der Endstand2005 erscheinen soll. Aber wie setze ich statt 2005 mein ausgewähltes Jahr in der combobox?

Gruß
Mishelle


Rasta schrieb am 01.12.2005 10:44:58:

Hi Mishelle,

mein problem ist das ich nicht weiß, was die funktion "nz" bewirken soll- und dein problem ist glaube ich, das du zuviel auf einmal willst :-)

was soll z.b. year(datum) = 2004 ??

kann das funktionieren?

generell solltest du die schritte immer erst einzeln testen, bevor du sie in eine große anweisung zusammensetzt.

also nimm doch mal den befehl
year(datum) = 2004
heraus und gehe den code im einzelschritt-modus durch und lass dir anzeigen was passiert.

so kommst du der fehlerquelle am besten auf die schliche.

jetzt probiere es nochmal, wenn dus nicht hinbekommst kannst du mir deine datei senden und ich schaus mir an. ich behandel deine datei natürlich streng vertraulich.

viele grüße

rasta


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
30.11.2005 10:42:37 Mishelle
NotSolved
30.11.2005 13:30:46 Rasta
NotSolved
30.11.2005 15:35:52 Mishelle
NotSolved
30.11.2005 16:10:31 Rasta
NotSolved
01.12.2005 09:16:12 Mishelle
NotSolved
01.12.2005 09:24:48 Rasta
NotSolved
01.12.2005 09:53:35 Mishelle
NotSolved
01.12.2005 10:44:58 Rasta
NotSolved
Rot Aw:laufende Berechnung mit VBA
01.12.2005 11:13:19 Mishelle
NotSolved
01.12.2005 11:52:14 Rasta
NotSolved
01.12.2005 11:59:57 Mishelle
NotSolved
01.12.2005 12:42:37 Rasta
NotSolved
01.12.2005 12:53:10 Mishelle
NotSolved
01.12.2005 13:09:25 Rasta
NotSolved