how to get decimal value from numeric value

[deepaksharma]

I want that whenever a three digit numeric number is entered in the text box made in the form it should be converted to decimal from the after update event.


for example---

input 453 output display .453
input 678 output display .678
input 100 output display .100
input 020 output display .020

what could be the code for this?

[Bob Fitz]

Try the following in the AfterUpdate event:

    If Me.ActiveControl >= 100 And Me.ActiveControl <= 999 Then        
       Me.ActiveControl = "." & Me.ActiveControl
    End If

[CJ_London]

it should be converted to decimal

decimals will always have a value before the decimal point, even if it is 0. To display what you want (no characters before the decimal point) it will need to be displayed as a string as shown by Bob.

If you need to keep it as a number, in the after update event of your textbox put

txtEntry=txtEntry/1000

and in the format property for the txtEntry control put

.000

Note that the number has been converted from 123 to 0.123 and the format property hides the zero

Another way is to use an input mask - just set it to .###, no code required. and the underlying value will remain as 123

Which method works for you depends on what you are going to do with the value

[deepaksharma]

thanks for replay...

[deepaksharma]

thanks CJ_London

this code ---

Private Sub TXT8_AfterUpdate()

Me.TXT8 = Me.TXT8 / 1000
End Sub

is best for me..... thanks