hi mishelle,
nur nicht verzweifeln -- hast du denn meine ausführungen gelesen?
den wert der combobox, oder was auch immer du für ein steuerelement hast, kannst du in eine variable schreiben, BEVOR du damit weiter arbeitest.
also z.b.
dim lngDatum as long
lngDatum = clng(combobox1.value)
(evt. ist die eigenschaft auch "text" statt "value")
wo ist denn das aktuelle problem?
viele grüße
rasta
Mishelle schrieb am 01.12.2005 09:16:12:
Hallo.
Hilfe, ich bekomme es einfach nicht hin.
[Code]
Dim endstand2003 As Double
Dim endstand2004 As Double
Dim endstand2005 As Double
Dim endstand2006 As Double
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]
Hier wird mir als Ergebnis immer 4.43 angzeigt. Das Year(Datum) ist leer. Wo ist denn der Fehler?
Habe ja ein Kombinationsfeld wo ich das Jahr auswähle. Wie kann ich das ausgewählte Jahr mit dieser Rechnung verküpfen? Also wenn ich z.B. 2005 auswähle, dass er dann bis endstand2005 rechnet.
Gruß
Mishelle
|