HighLite Data on a report 5

[dvannoy]

Is it possible to highlite every other line on a report..similar to an excel spreadsheet?

I just want to use a soft gray on every other record on a report..

Thanks in Advance DVannoy
A+,Network+,CNA
dvannoy@onyxes.com

 

[JoeMiller]

Place this in the OnFormat event of your detail:

[tt]
Const cLightGrey = 12632256
Const cWhite = 16777215

If Me.Detail.BackColor = cWhite Then
Me.Detail.BackColor = cLightGrey
Else
Me.Detail.BackColor = cWhite
End If
[/tt]


Hope that helps!
Joe Miller
joe.miller@flotech.net

 

[dvannoy]

Thanks...

I can use that also, but what I was trying to do is

Make a solid block/line through every other record

eg..the first line on the report would be normal.
the second line would have a solid block of gray through the entire record...

Thanks for your help DVannoy
A+,Network+,CNA
dvannoy@onyxes.com

 

[LonnieJohnson]

I was eaves dropping and used to create a green bar effect. It seems to do the trick for me. What is it not doing? ljprodev@yahoo.com
ProDev, MS Access Applications B-)

http://www.galaxymall.com/software/PRODEV

 

[dvannoy]

its not solid...it creates a line under the record and blocks in between the records...maybe this is the way it works...I was trying to get a solid block through the record.. DVannoy
A+,Network+,CNA
dvannoy@onyxes.com

 

[dvannoy]

never mind...it would of helped if i would set the back style to transparent...

Thanks for your help guys..

DVannoy
A+,Network+,CNA
dvannoy@onyxes.com

 

[Databaseguy]

Joe, if I someday know only half what you do.... Tyrone Lumley
augerinn@gte.net

http://server47.hypermart.net/databaseguy

 

[LonnieJohnson]

Just half Joe, just half...

You da man. ljprodev@yahoo.com
ProDev, MS Access Applications B-)

http://www.galaxymall.com/software/PRODEV

 

[JoeMiller]

hehe . . in time young Skywalker(s), in time...

Joe Miller
joe.miller@flotech.net

 

[ryanku]

If I'm not too late

Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
Const vbLightGrey = 12632256
If Me.CurrentRecord Mod 2 = 0 Then
Me.Section(acDetail).BackColor = vbLightGrey
Else
Me.Section(acDetail).BackColor = vbWhite
End If
End Sub