Hallo Mishelle,
in vba funktioniert so etwas leider nicht.
hier müssten wir umdenken.
nachdem du jeweils dasselbe berechnest, könntest du aus der berechnung eine function bilden- der du deine zu berechnenden werte übergibst, und dir diese dsa ergebnis liefert das du dann
txt_p_ohnepo
zuweisen kannst.
ansonsten musst du ja für die jeweiligen jahre, so wie dus bisher auch berechnet hat, jeweils die erweiterungen schreiben. in diesem falle wäre das dann
if combobox.value = "2005 then
txt_p_ohnepo = endstand2005"
elseif combobox.value = "2004" then
txt_p_ohnepo = endstand2004"
end if
bzw. usw.
entweder du machst es so-- oder mit der saubereren lösung in einer funktion. hauptsache ist immer, das es funktioniert :-)
viele grüße
rasta
Mishelle schrieb am 01.12.2005 11:59:57:
Hallo Rasta.
Ne, in dem Textfeld soll ja nicht das ausgewählte Jahr erscheinen sondern der Endstand des ausgewählten Jahres.
Hab das ja bis jetzt so gemacht:
Me.txt_p_ohnepo = endstand2005
nun soll aber diese 2005 ausgetauscht werden mit dem Wert des Kombinationsfeldes.
also so z.b.: me.txt_p_ohnepo= endstand+Kombinationsfeld.value
--> aber das funktioniert leider so nicht...
Gruß
Mishelle
Rasta schrieb am 01.12.2005 11:52:14:
hi mishelle,
wenn ich dich richtig verstanden habe-- dann wie folgt
dim strJahr as string
strJahr = combobox.text (oder value)
dann hast du die auswahl der combobox in der variable
die kannst du dann beliebig verwenden.. z.b:
textbox.text = strjahr
ist es das was du suchst?
viele grüße
rasta
Mishelle schrieb am 01.12.2005 11:13:19:
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
|