Sample to get you started:

Private bOddRow As Boolean

'*************************************************************************

' -- Display green-bar type color banding in detail rows

' -- Call from BackGroundColor property of all detail row textboxes

' -- Set Toggle True for first item, False for others.

'*************************************************************************

Function AlternateColor(ByVal OddColor As String, _

ByVal EvenColor As String, ByVal Toggle As Boolean) As String

If Toggle Then bOddRow = Not bOddRow

If bOddRow Then

Return OddColor

Else

Return EvenColor

End If

End Function

Then to use this on a table, add this to the expression on BackgroundColor: =Code.AlternateColor("White", "Whitesmoke", TRUE)