Shading alternatie rows in datasheet view and in form view?

[Guest]

I use this block of code to toggle between formview and datasheet view, in
addition to freezing 3 particualr columns when in datasheet view. I would
like to shade alternate rows. I know ive seen something on it, either here
or elsewhere. Can anyone help me out please. Many thanks in return.

'Toggle Datasheet view
Me.frmCCtrForecast.SetFocus
DoCmd.RunCommand acCmdSubformDatasheet

'Get value or toggle button
Dim intValue As Boolean
intValue = Me.tglSwitchView

'Set Toggle button caption re: state of button
If intValue = False Then
With Me.tglSwitchView
.Caption = "Datasheet View"
End With
ElseIf intValue = True Then
With Me.tglSwitchView
.Caption = "Form View"
End With

'Freeze Account, Description and PT columns
Me!frmCCtrForecast!Account.SetFocus
DoCmd.RunCommand acCmdFreezeColumn

Me!frmCCtrForecast!Description.SetFocus
DoCmd.RunCommand acCmdFreezeColumn

Me!frmCCtrForecast!PT.SetFocus
DoCmd.RunCommand acCmdFreezeColumn

End If
Exit Sub

 

[Stephen Lebans]

With A97 and later you can use Conditional Formatting to shade alternate
rows. For sample code see:
http://www.lebans.com/conditionalformatting.htm

--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Jeff Conrad]

Sensei,

I assume you meant to say Access 2K+ has Conditional Formatting?

 

[Stephen Lebans]

Yes, thanks for catching the typo Jeff!


--

HTH
Stephen Lebans
http://www.lebans.com
Access Code, Tips and Tricks
Please respond only to the newsgroups so everyone can benefit.

 

[Guest]

That works for me. Thanks Stephen.