Amend command button colours via public constants and load event of each form

[chrisjames25]

Doh i was doing so well. Not sure if this should be new thread or not as very related but i have now added the following code to do forecolor as well but it seems to make the box turn black not orange. If this not how you would type to change the forecolor:

Dim ctl As Control
For Each ctl In Me.Controls
      If ctl.Tag = "C" Then ctl.BackColor = ConButtonBackColor And ctl.ForeColor = ConButtonBackColor
Next

Appreciate i am turning forecolor and backcolor the same color in this example - not my final plan but was just testing code and sure the issue straightaway.

 

[theDBguy]

Doh i was doing so well. Not sure if this should be new thread or not as very related but i have now added the following code to do forecolor as well but it seems to make the box turn black not orange. If this not how you would type to change the forecolor:

Dim ctl As Control
For Each ctl In Me.Controls
      If ctl.Tag = "C" Then ctl.BackColor = ConButtonBackColor And ctl.ForeColor = ConButtonBackColor
Next

Appreciate i am turning forecolor and backcolor the same color in this example - not my final plan but was just testing code and sure the issue straightaway.

You need to split them in two lines. For example:

If ctl.Tag="C" Then
    ctl.ForeColor=ConButtonBackColor
    ctl.BackColor=ConButtonBackColor
End If

 

[chrisjames25]

You need to split them in two lines. For example:

If ctl.Tag="C" Then
    ctl.ForeColor=ConButtonBackColor
    ctl.BackColor=ConButtonBackColor
End If

Perfect. Exactly what needed. Thank you all so much. Until next time i get stuck (knowing me a few hours)

 

[theDBguy]

Perfect. Exactly what needed. Thank you all so much. Until next time i get stuck (knowing me a few hours)

You're very welcome. We were all happy to assist. Good luck with your project.

 

[mjdemaris]

Just happened to stumble on this thread while looking for the same answer...
I created three long constants in a public module (Utilities), set values to RGB numbers: 100, 150, 200 for example.
Then created a public function

 ColorTest as Long

Public Function ColorTest() As Long
    ColorTest = RGB(c_Color1, c_Color2, c_Color3)
End Function