code help

[gbanks]

I use the code below to change the backcolor off all the text boxes on a form to the color white if the record is a new record. This works great except now they want one text box called Select_form on the form to not turn white. Is there a way to modify the code below to do this? Can the textbox called Select_form be excluded? Thanks.....

If Me.NewRecord Then
For Each ctl In Me.Controls

If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then
ctl.BackColor = 16777215
End If

 

[neileg]

After you set all the controls to white, just set that one control back to grey, or whatever colour you like.

 

[Travis]

Can the textbox called Select_form be excluded? Thanks.....

   If Me.NewRecord Then
      For Each ctl In Me.Controls
         If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then 
             If ctl.Name<>"Select_form" Then
                ctl.BackColor = 16777215
             End If
         End If
        ...

An alternaltive is to use the Controls "Tag" Property and set a value that states whether or not you are to change the controls background color to White.

 

[a.sinatra]

If Me.NewRecord Then
      For Each ctl In Me.Controls
          If ctl.ControlType = acTextBox Or ctl.ControlType = acComboBox Then 
               ctl.BackColor = 16777215
               Me.Select_form.BackColor = -2147483648
          End If
End If

-2147483648; use what ever color you wish in place of it.

*You posted it without an "End If"
________
Buy Vapor Genie

 

[neileg]

Thanks, Anthony, for the code example of the solution I posted!!

 

[Mile-O]

*You posted it without an "End If"

And you posted without a Next.

 

[Mile-O]

Anthony, also, move the greying line from the loop - no need to set the BackColor as many times as there is controls.