More code... [resolved]

[thegreatone]

I think from my code it is obvious what i am trying to do, but where did i go wrong ? And how can it be fixed ?

Private Sub Command1_Click()
Dim ctrl As Control
For Each ctrl In Form1
If ctrl = TextBox Then
ctrl.BackColor = Text1.Text
End If
DoEvents
Next
End Sub

[dglienna]

Option Explicit
 
Private Sub Command1_Click()
Dim ctrl As Control
For Each ctrl In Form1
  If typeof ctrl is TextBox Then
    ctrl.BackColor = Text1.Text
  End If
  DoEvents
Next
End Sub

[thegreatone]

Thanks for the speedy reply, i get Syntax Error @

If typeof(ctr) is TextBox Then

and i don't know what to do... sorry.

[Pasvorto]

How about his routine that gets the form name passed. You can change the .text = "" to .backcolor = vbred,etc
/=============================================

Public Sub gClearForm(Fname As Form)
On Error GoTo errorhandler

'this routine will be called by each form
'it will clear the text boxes on the form
Dim MyControl As Control
For Each MyControl In Fname.Controls
If TypeOf MyControl Is TextBox Then MyControl.Text = ""
Next MyControl

Exit Sub
'%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
errorhandler:
Screen.MousePointer = 0
MsgBox "An error occurred: [" & Err.Number & "] " & Err.Description & " - Source: " & Err.Source
End Sub

[dglienna]

Sorry about that. Remove the ( ) and it should be fine.
My copy/paste skills aren't working right this morning.

[thegreatone]

DGlienna, your code still failed to work.. sorry to say that.

Other dude who posted routine (forgot your name already
Thanks so much, that works well, and is modified to work now

Pos Rep for both

[Pasvorto]

No problem. Don't forget to mark your question as 'resolved'

[dglienna]

Oops, again. Missed the l on Ctrl.

Thanks.

[Joacim Andersson]

The problem is the For Each statement. For Each ctrl In Form1? Form1 what? Form1.Controls!

Dim ctrl As Control
For Each ctrl In Form1.Controls
  If TypeOf ctrl Is TextBox Then
    ctrl.BackColor = CLng(Text1.Text) 'Of course Text1.Text must contain a color value
  End If
Next

[dglienna]

I've never needed that, as Ctrl was declared as a Control, so For Each Control in Forms works.

[thegreatone]

Thank you Joacim

I've just noticed that myself
Now i can save two ways of doing this Thanks