help with formatting multiple text boxes

[umich1967]

Hello:

I have a userform with many text boxes - it is used as a budget guide and lists numbers from a seperate sheet. I know how to format one text box to read #,##0 (TextBox6 = Format(TextBox6, "#,##0"), but there must be a command/code that will format them all this way. I am having to enter code for each one. Does anyone have any suggestions?

Thanks!

Scott Settle

[blue8]

Hi Scott,

As far as I know there is not a cpmmand that will the formatting in 1 go.

This is what I suggest.

Place several objects of differing types on a form including TextBoxes. Utilising a button that you have placed on the form place this code in it's Click event for a demonstration.

'============================
CODE:
Private Sub Command1_Click()
Dim obj As Object
Dim x As Byte

For Each obj In Form1.Controls ' loop through every object on the form
If TypeOf obj Is TextBox Then ' check if the current object is a TextBox
obj.Text = x ' perform any operation on the TextBox
' within this IF statement
x = x + 1
End If
Next
End Sub
'============================


I hope this helps.

Paul

[Hemant Pathak]

Hi....................

Blue8 is right u can run this code when user form is activated

private form1_activate()
Dim a as string
Dim Ctl as Control
a="#.##0"

for each ctl in FormName.Controls
if type of ctl is TextBox then
ctl.format=a
end if
next

end sub