Help me! Different decimal places for text box in different row!

[cuongmyh]

Hi!
I have continuos form! in this form, i have field "Amount". I want to format this texbox with different decimal place in different row.
ex:
R/M Amount


-----------------
A 10.23
B 9.245
C 12.5623

How do i do?

[JoeM]

You can use a calculated field like this:

AmountToShow: IIf([R/M]="A",Round([Amount],2),IIf([R/M]="B",Round([Amount],3),IIf([R/M]="C",Round([Amount],4),[Amount])))

[June7]

Be aware that Round() function uses even/odd rule, in case that matters to you.

Round(10.225,2) = 10.22

Round(10.226,2) = 10.23

Round(10.235,2) = 10.24

[JoeM]

You could also use the Format function, but just bear in mind that returns a Text value (not a numeric one).

FORMAT([Amount],"0.00")

[June7]

Which is why I built a custom function,

Function RRound(FieldValue As Variant, Optional intPos As Integer = 0) As Variant
'--------------------------------------------------
' Function RRound() rounds value to designated decimal position.
' If argument does not contain data, RRound returns null.
' Use because intrinsic Round uses even/odd (banker's) rounding.
' Also, Format and FormatNumber functions don't use even/odd but
' generate a string result which is often inconvenient.
'--------------------------------------------------
Dim strZeros As String
Dim i As Integer
If intPos = 0 Then
    strZeros = 0
Else
    For i = 1 To intPos
        strZeros = strZeros & 0
    Next
    strZeros = "0." & strZeros
End If
RRound = IIf(Not IsNull(FieldValue), Val(Format(FieldValue, strZeros)), Null)
End Function

[JoeM]

Which is why I built a custom function,

Nice! Gotta love those UDFs!