Private Sub Text1_LostFocus() 'you may also test with Change event
on error resume next 'to avoid errors
text1.text=format(ccur("0" & text1.text),"#.##0,00") 'the "0" prefix is
to allow convertion to zero when text1 is empty
End Sub
Bye
Elef
"DaveA" <da*********@atk.com> ha scritto nel messaggio
news:11*********************@o13g2000cwo.googlegro ups.com...
I am attempting to have an entry on a form that will format the entry
to a currency amount.
For example, if the user types 3452, I would like the form to
store/display 34.52.
If the user types 99, I would like the form to store/display 0.99, or
.99.
Any suggestions as to how to go about this?
Thanks.
Dave