Stop text box from rounding decimals

[Deutz]

Hi,



I am using Access 2003 and have a form with a number of unbound text boxes formatted to Standard number, 2 decimal places.

The problem is that whenever you enter a number with more than 2 decimals the textbox rounds the second decimal place up or down which I don't want. I just want to drop off any decimals greater than 2.

For instance if I enter 12.225 in a textbox the value displayed is rounded up to 12.23 and I want it to display 12.22 and ignore the third decimal.

I tried an input mask and that works but is not ideal for my purpose.

Any suggestions?

Thanks in advance

[Deutz]

Thanks if you are looking at this but I just figured out how to do it by calling the sub below from the Lost Focus event of each textbox:
(the sub trims off extra decimal places greater than 2)

Sub StopTextboxRounding()
Dim lngDec As Long

With Me.ActiveControl
If Not IsNull(.Value) Then
lngDec = InStr(.Value, ".")
If lngDec > 0 Then
If Len(.Value) - lngDec > 2 Then
.Value = Mid(.Value, 1, lngDec + 2)
End If
End If
End If
End With
End Sub