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