Textbox formatting
Hey Bob,
That code suggested worked initially when I entered the textbox, however if
I deleted the value in the textbox and then put in another number, it would
not put the $ sign because the code is located in the ENTER event. So I put
the same code in the CHANGE event and it put a huge long string of $ signs
in the textbox. So I needed an if statement to test if there is a $ sign.
Now when I put the following code with the IF statement in the CHANGE event,
it works.
I ended up using:
If Left(Me.TextBox12.Text, 1) < "$" Then
Me.TextBox12.Text = "$" & Me.TextBox12.Text
End If
Thanx
Todd Huttenstine
"Bob Phillips" wrote in message
...
Todd,
This was previously suggested to you, and it works great for me.
Private Sub TextBox1_Enter()
TextBox1.Value = "$"
End Sub
Have you tried it?
--
HTH
Bob Phillips
... looking out across Poole Harbour to the Purbecks
(remove nothere from the email address if mailing direct)
"Todd Huttenstine" wrote in message
...
Hey guys,
I still cannot get a $ sign to come up before everything I type in a
textbox.
I want to be able to type in lets say TextBox1 and when I do, the $ sign
pops up in front of the number. I need the dollar sign to always be
there
no matter how many times I re-enter numbers and I need it to format the
cell
as $0.00
|