A formatted text box

I need a data-bound text box that shows DAO data from the JET engine formatted as required i.e format(foo,"###0.00").
I have tried to set the Access format value when designing the database but the values come back raw. The Masked Text control NEARLY works but is left formatted, I also need the ability to have the control locked when required.
entretecAsked:
Who is Participating?
 
swiltConnect With a Mentor Commented:
Use a text box with Alignment set to 1 - Right Justify and the following piece of code

Private Sub Text1_Change()
    Static bInHere As Boolean
   
    If Not bInHere Then
        bInHere = True
        Text1.Text = Format$(Text1.Text, "#0.00")
        bInHere = False
    End If
End Sub


If you do Text1.Enabled = False this code still works
0
 
entretecAuthor Commented:
Thanks, what I was really looking for was a control  rather than having to put this code in every text box. However I suppose I could create a user-control.

Mike
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.