Office: (Office 2010) Fehlermeldung "Staffelung des Dezimalwerts führte zu Datenkürzung"

Hallo,

ich habe hier eine reine Access 2010-Anwendung, aufgeteilt in Fron- und Backend. Ich erfassen Mitarbeitegehälter in Zahlenfeldern als Dezimal(18,4).

Bisher klappt alles gut, Pivottabelle, Formulare, Berichte und Berechnungen im Formular. Nur muss ich jetzt für einen 4-Jahres-Bericht die Werte kumulieren. Und beim Berechnen der Jahresgehälter erscheint folgende Fehlermeldung:

Dabei bilde ich nur das Produkt zweier Spalten. Die Variablen dXXXXX sind als Double deklariert, in den Zuweisungen an das Recordsett erscheint dann der Fehler
Code:

Zu diesem Thema gibt es eine Menge Beiträge im Netz, alle von mir gelesenen beziehen sich allerdings auf Access mit einem anderen Backend wie Oracle, MySql usw. Hat jemand eine Idee, warum dies auch bei Accesstabellen auftritt? Wie kann ich das umgehen?

Viele Grüße,
Stefan

:)

 

Hallo,

ich habe den Datentyp nun von Zahl, Dezimal(18,4) auf Währung geändert. Damit wird die Berechnung nun ohne Fehlermeldung durchgeführt. Offenbar kann VBA nicht mit so großen Zahlen umgehen.

Grüße aus Bremen,
Stefan

 

Hi,

Doublewerte sind Gleitkommazahlen und damit implizit "unscharf" (siehe hier). Dezimal (und auch Währung!) sind Festkommazahlen, die auf die angegebenen Dezimalstellenzahl runden und damit die Gleitkommaunschärfen umgehen.

Währung ist übrigens auch "Komma 4", wie Dezimal (x,4).

Beim Zuweisen eines Doublewerts zu Dezimalzielen wird gecastet. Dabei gibt es dann Rundungseffekte, die von der Meldung in Erinnerung gerufen werden.

Gleitkommawerte (Double, Single) haben bei Finanzkalkulationen nichts zu suchen. Und auch bei den meisten anderen Kalkulationen nicht. Man rechne da in Festkomma.

 

Hallo Martin,

danke für deinen Hinweis.

Mir ist bewusst, dass Dezimal und Währung intern als Ganzzahl behandelt werden, und dass Double eine ungenaue Zahl darstellt. Allerdings hatte ich die Konvertierung eingefügt, da die Fehlermeldung auch bei direkter Berechnung und Zuweisung auftrat. Also auch folgendes ergibt den Fehler der Datenkürzung:
Code:

Dabei fällt mir auf, könnte es auch an der Nz-Funktion liegen? Die liefert einen Variant zurück, laut Dokumentation auch mit dem Untertypen Decimal oder Currency...

Wie dem auch sei, mit der Umstellung auf Währung klappt es nun alles. :-)
Stefan

 

Hallo!

Du könntest prüfen, welchen Datentyp die einzelnen Code-Teile liefern:
Code:

=>
Code:

Meine Vermutung:
Sobald der Feldwert NULL ist, wird 0 bzw. 1 verwendet und das sind dann Integer-Zahlen. Sobald ein Teil aber immer noch Decimal ist, würde ich erwarten, dass der Datentyp bei Decimal bleibt.

Vielleicht hilft eine explizite Konvertierung:
Code:

Anm.: der Datentyp aus dem Tabellenfeld sollte normalerweise schon im Variant-Rückgabewert enthalten sein.

Wenn du eine Variable als Dezimalzahl haben willst, kannst du Variant verwenden und bei der Initialisierung explizit konvertieren.
Code:

=> 14 = vbDecimal

mfg
Josef