shading labels in a record

[aussie_user]

HI,

I was able to adapt code from a previous post so that I can have certain records in a report show up as shaded. It all works fine except for 2 labels that I have in the report. I can't seem to get them to shade. Can anyone offer suggestions on what I could try to get the labels to shade? I'll post my code and one of the labels that won't shade is DateApprove. Most of my labels are in the Page Header, but I have several small fields in one column where they are self explanatory (GrantAmount, GrantTimeFrame, CommitteeNotes) with the exception of 2 dates. The other date is DateCompleted but I haven't put it in yet until I can get the DateApprove to work.

Option Compare Database

Private Sub Detail_Print(Cancel As Integer, PrintCount As Integer)
If Shade = No Then
Me.OrgID.BackColor = 16777215
Me.DateApproved.BackColor = 16777215
Me.CommitteeNotes.BackColor = 16777215
Me.ProjectName.BackColor = 16777215
Me.GrantAmount.BackColor = 16777215
Me.ProjectDescription.BackColor = 16777215
Me.Outcomes.BackColor = 16777215
Me.ProjectID.BackColor = 16777215
Me.ExpectedCompletionDate.BackColor = 16777215
Me.GrantTimeFrame.BackColor = 16777215
Me.DateApproved.BackColor = 16777215
Me.Shade.BackColor = 16777215
Else
Me.OrgID.BackColor = 12632256
Me.DateApproved.BackColor = 12632256
Me.CommitteeNotes.BackColor = 12632256
Me.ProjectName.BackColor = 12632256
Me.GrantAmount.BackColor = 12632256
Me.ProjectDescription.BackColor = 12632256
Me.Outcomes.BackColor = 12632256
Me.ProjectID.BackColor = 12632256
Me.ExpectedCompletionDate.BackColor = 12632256
Me.GrantTimeFrame.BackColor = 12632256
Me.DateApproved.BackColor = 12632256
Me.Shade.BackColor = 12632256
End If
End Sub
Private Sub Report_Open(Cancel As Integer)

End Sub

Thanks for any help or suggestions.

 

[Pat Hartman]

Is it DateApprove or DateApproved?

 

[aussie_user]

DateApprove

Sorry about that..that was my working copy of the code. I originally had DateApproved but tried changing the label name to DateApprove. It doesn't work either way. Earlier I had a problem adding one of the other fields (CommitteeNotes) and it finally worked after deleting it and re-adding to the report, so I thought I would try with the label..but no luck.