Formatting UserForm to Show Dollar Sign - No Control Source

[Simba1]

Hi guys,

I was searching through the archives to help me with a userform problem I was having. It seems as though a few other people had similar problems, but I can't get this to work. All I want to do is have my UserForm show dollar signs on the form.

The code I've been using, and fiddling with is:

Private Sub UserForm_Initialize()
TxtAvgUnitPrice.Text = Format(TxtAvgUnitPrice.Value, "$#,##")
End Sub

-I am not using a Control Source, if this makes it any easier to explain why I'm not getting the result I want.

Can anyone help with this?

 

[Juan Pablo González]

Re: Formatting UserForm to Show Dollar Sign - No Control Sou

Probably because the TxtAvgUnitPrice textbox is empty when you initialize the form ?

 

[martinee]

Re: Formatting UserForm to Show Dollar Sign - No Control Sou

Two basic options, the first just uses a label out in front, the second implements some code: (See Below)

Private Sub TextBox2_Change()
If InStr(1, TextBox2.Text, "$") = 0 Then
TextBox2.Text = "$" & TextBox2.Text
End If
End Sub

This would be in the UserForm module. HTH.