Office: (Office 2010) Runden im Bericht

Hallo Leute, bin mal wieder am verzweifeln.
In einem Berichtsfeld habe ich folgende Formel eingebaut:

=Wenn([Rabatt]=0;[einzelpreis];Wenn([Rabatt]

:)

 

Sihe Dir mal FAQ 2.1 an.

Dort wird eingeleitet mit dem Satz: "Es ist keine Funktion zur kaufmännischen Rundung zu finden." und führt weiter an: "Access-intern muss man sich einer selbstgebastelten Funktion bedienen."

 

Diese Funktion ist ja vorhanden

PHP:

         Public Function Round(Wert As Variant, stellen As Integer) As Double
Dim wert2 As Double
Dim dblFactor As Double
Dim dblTemp As Double

On Error GoTo Err_Round             Round(([Wert]*1,2);2)

wert2 = CDbl(NullToNum(Wert))
dblFactor = 10 ^ stellen
dblTemp = wert2 * dblFactor + 0.5
Round = Int(dblTemp) / dblFactor

Exit_Round:
Exit Function
Err_Round:

MsgBox Err.Description
Resume Exit_Round

End Function


 

Hallo,

das liegt wohl mal wieder an schlecht gewähltem Bezeichner. In Access gibt es bereits eine Funktion Round, die 2 Argumente erwartet. Access wandelt offensichtlich dein Runden in das englische Round um und wertet diese Funktion aus. Benenne deine Funktion mal in fncRound um teste damit.

 

Hallo
möglich das das dass ist was Jürgen meint

sage deiner funktion
RoundX und Nicht nur Round

den Round ist eine Acces eigene Funktion :
z.B. in direkt Fenster eingegeben gibt
?Round (11.555,2) --> 11.56

und
?Round (11.555*3,2) --> 34.66

könnte es sein das Du Dein Funktion von mir hast aber leiter fehler gemacht hast beim anpassen ?

mein ?RoundX (11.555*3,2) gibt --> 34.67

 

Habe meine Function umbenannt und dann hat es geklappt.

 

und niemand anderer darf's wissen*mad.gif*