Can't get the BackColor of labels on a subform to reflect the new color— even after I first changed

[VBA_Accountant]

I am stumped as to why the BackColor for labels on an MS Access subform will not update visually. I wrote some code to change the BackStyle to "1" first, then changed the color of BackColor. I ran tests and found that the BackStyle and BackColor have actually been updated in the system, but not in the Property Sheet--- which still shows BackStyle as "0" and BackColor as the default color. The color of the label on the subform also retains the default color. I also get no error messages, but that doesn't mean I'm not royally messing something up. I even tried to repaint the form to see if that would do the trick, but to no avail. Here is the simple code below:
[COLOR=var(--highlight-keyword)]Dim[/COLOR] frm [COLOR=var(--highlight-keyword)]As[/COLOR] Form
[COLOR=var(--highlight-keyword)]Dim[/COLOR] ctl [COLOR=var(--highlight-keyword)]As[/COLOR] Control


[COLOR=var(--highlight-keyword)]Set[/COLOR] frm = [COLOR=var(--highlight-keyword)]Me[/COLOR]![subfrm_Review Forecast Totals].Form

[COLOR=var(--highlight-keyword)]For[/COLOR] [COLOR=var(--highlight-keyword)]Each[/COLOR] ctl [COLOR=var(--highlight-keyword)]In[/COLOR] frm.Controls

[COLOR=var(--highlight-keyword)]If[/COLOR] ctl.ControlType = acLabel [COLOR=var(--highlight-keyword)]And[/COLOR] ctl.Name = [COLOR=var(--highlight-variable)]"2020-12-25_Label"[/COLOR] [COLOR=var(--highlight-keyword)]Then[/COLOR]

ctl.BackStyle = [COLOR=var(--highlight-namespace)]1[/COLOR]
ctl.BackColor = vbGreen



[COLOR=var(--highlight-keyword)]End[/COLOR] [COLOR=var(--highlight-keyword)]If[/COLOR]

[COLOR=var(--highlight-keyword)]Next[/COLOR] ctl

[COLOR=var(--highlight-keyword)]Me[/COLOR].Repaint

End Sub

[Minty]

You code isn't readable, but try a form Refresh

[ranman256]

make sure the label property BACKSTYLE is NOT transparent.
(normal)

[VBA_Accountant]

make sure the label property BACKSTYLE is NOT transparent.
(normal)

Sorry about the unreadable code earlier. Here is a readable format:

Dim frm As Form
Dim ctl As Control


Set frm = Me![subfrm_Review Forecast Totals].Form

For Each ctl In frm.Controls

If[ ctl.ControlType = acLabel And ctl.Name = "2020-12-25_Label" Then

ctl.BackStyle = 1
ctl.BackColor = vbGreen

End If

Next ctl

Me.Repaint

[Micron]

That code looks like CSS?
Cannot imagine it's possible to use CSS in Access.

[Minty]

That loop is a bit unnecessary as you are only referring directly to one control?

Dim frm As Form
Dim ctl As Control


Set frm = Me![subfrm_Review Forecast Totals].Form


frm.2020-12-25_Label.BackStyle = 1
frm.2020-12-25_Label.BackColor = vbGreen

frm.repaint

You have to repaint the subform not the current form, unless you were already on it, which seems unlikely.

[Missinglinq]

What kind of Form is your Subform...Single View, Continuous or Datasheet?

Linq ;0)>

[VBA_Accountant]

I'm using a datasheet view/version of the subform via a tab form

[Minty]

I am pretty certain you can't change the colour of a Datasheet label.

Try doing it manually?

[Missinglinq]

I think that's correct. Most formatting of Datasheet Forms has to be done using Conditional Formatting off of the Menu/Ribbon....and Labels don't support CF.

You can do some general formatting of the entire Form, using syntax such as

Me.DatasheetBackColor = 12713921

or

Me.DatasheetBackColor = vbGreen


to set the BackColor for the entire Form.

Here's a great site telling you things you can do with Datasheet Forms:

http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx

Linq ;0)>

[Micron]

You can make a continuous form look like a datasheet if that's what it must be. Then you can tweak colours more easily, but there are limits of course.