display special characters in some textbox fields to ensure data f

[sam]

Hi All,

I have a excel userform which accepts user inputs and which is evevntually
saved in access database, In the userform i have textbox that accepts phone
numbers and money amounts. I want to display special characters in these
textbox fields to ensure data format.

For eg,

text box that accepts phone numbers, I want the textbox to display: "( )
- "
text box that accepts money amounts, I want to display a "$" sign before the
user input eg: $ 100,000
Also, is there a way to format the amount field such that it displays ","
and a "."
eg: 100,000,00.00

Hope I made it clear,

Thanks in advance

 

[Jacob Skaria]

Try the below..Adjust to suit your requirement..Also in tooltip you can
mention the format ..


Private Sub TextBox1_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox1 = Format(TextBox1.Value, "$ #,##.00")
End Sub

Private Sub TextBox2_Exit(ByVal Cancel As MSForms.ReturnBoolean)
TextBox2 = Format(TextBox2.Value, "(###) ###-####")
End Sub


If this post helps click Yes