How to change the back color of all Command Buttons except some few?

[ezybusy]

Hi Guys,


So i was able to come up with the following code to set the back color of all command button on a form except one. And it works.
Now my problem is, i want the exception to hit more than one button command. I actually have 5 commands which i don't want to be affected by the change in the back color. But i have no clue as to how to go about it.

Any help???

Const BtBackColor As Long = 3355443 

Dim ctl As Control

If IsNull(Me.SomeTxtField) Then  For Each ctl In Me.Controls
        If ctl.ControlType = acCommandButton Then
           If ctl.Name <> "Cmd_Button1_ToBeExcluded" Then 'I need to add 4 more command buttons here
              With ctl
                .BackColor = BtBackColor
                .ForeColor = vbWhite
              End With
           End If
        End If
   Next ctl
End If

[pbaldy]

Along the lines of:

If ctl.Name <> "Cmd_Button1_ToBeExcluded" AND ctl.Name <> "Cmd_Button2_ToBeExcluded" AND ctl.Name <> "Cmd_Button3_ToBeExcluded" Then

[ezybusy]

@Pbaldy.
Yeah it did it. Thank you.

[pbaldy]

Happy to help.

[ssanfu]

Another option would be to set the TAG property of the command buttons to "Exclude" for the buttons you do not want the back color to change.
Then use this code:

    Const BtBackColor As Long = 3355443

    Dim ctl As Control

    If IsNull(Me.SomeTxtField) Then
        For Each ctl In Me.Controls
            If ctl.ControlType = acCommandButton Then
                If ctl.Tag <> "Exclude" Then
                    With ctl
                        .BackColor = BtBackColor
                        .ForeColor = vbWhite
                    End With
                End If
            End If
        Next ctl
    End If

If at some point you want to change which command buttons get the back color changed, all you have to do is change the TAG property; no need to edit the code.