A personal repository of random information in compensation for a fatigued biological computer
Breaded IT » MS Access / SQL Server reminders » Access: Conditional Formatting
http://msdn.microsoft.com/en-us/library/aa139965(office.10).aspx
- http://www.lebans.com/alternatecolordetailsection.htm
LR: The order that properties are set in Conditional Formats has a precedence, ie dont set a color and then disable.. as the disable will override the color back to default grey..
Sub SetupFormatConditionsView(target As String) Me.Controls(target).FormatConditions.Delete Set objFrc = Me.Controls(target).FormatConditions.Add(acExpression, , "[NotEditable] = 0") With Me.Controls(target).FormatConditions(0) .Enabled = False .BackColor = 16777215 End With Set objFrc = Me.Controls(target).FormatConditions.Add(acExpression, , "[Header] <> 0") With Me.Controls(target).FormatConditions(1) .Enabled = False .BackColor = 11527118 End With Set objFrc = Me.Controls(target).FormatConditions.Add(acExpression, , "[NotEditable] <> 0") With Me.Controls(target).FormatConditions(2) .BackColor = 15728632 .Enabled = False End With End Sub Sub SetupFormatConditionsEdit(target As String) Me.Controls(target).FormatConditions.Delete Set objFrc = Me.Controls(target).FormatConditions.Add(acExpression, , "[Header] <> 0") With Me.Controls(target).FormatConditions(0) .Enabled = False .BackColor = 11527118 End With Set objFrc = Me.Controls(target).FormatConditions.Add(acExpression, , "[NotEditable] <> 0") With Me.Controls(target).FormatConditions(1) .Enabled = False .BackColor = 15728632 End With Set objFrc = Me.Controls(target).FormatConditions.Add(acExpression, , "[NotEditable] = 0") With Me.Controls(target).FormatConditions(2) .Enabled = True .BackColor = 16777215 End With End Sub |