Solved Alternate Row Background color, ok easy. What about Alternate Row Text Color?

[raziel3]

Getting the alternate row color is easy enough but how do you get alternate row text color?

 

[MajP]

In your query you can add a row number and determine if the row is odd or even.

Row: DCount("*","products","ProductName < '" & [productname] & "'")
IsEven: [row] Mod 2=0

In conditional format
Expression is: [IsEven] = -1

 

[raziel3]

Ok cool, thanks.

 

[MajP]

Demo

 

[raziel3]

But what about if the query is filtered? The Conditional Formatting wont work.

 

[MajP]

Depends. If the form is simply built on a filtered list then you base your dcount on the same filtered query not on the table.
If you want to do filters dynamically you will have to build a function that passes in the ID and uses the form's actual recordset to determine the absolute position of the id in the recordset and the function can return odd or even. Then call that function from the query.

IsEven:MyFunctionIsEven([StateID])
Unfortunately I do not have time now to demo.

 

[MajP]

see second example using a hidden control on form

Public Function IsOddEven(StateID As String) As String
  With Me.RecordsetClone
    .FindFirst "stateID = '" & StateID & "'"
    If .AbsolutePosition Mod 2 = 0 Then
      IsOddEven = "Even"
    Else
      IsOddEven = "Odd"
    End If
  End With
End Function

 

[raziel3]

Nice. Thanks

So much work to get this functionality. It should be included in the properties window.