emphasising value

  • Thread starter Thread starter Carl
  • Start date Start date
C

Carl

I have report listing all the print times for jobs. I need
to highlight each job if the print time is over 15 days.
Problem is if any jobs are over 15 days, the whole lot is
emphasised (bolded).
How do I fix this? Below is what I have:
PS I am running Access 97 and the
Field "Print_1_Total_Time_Days" is unbound:sourcing its
data from other fields.

Private Sub Detail_Format(Cancel As Integer, FormatCount
As Integer)
Dim lngPrintTime As Long

If IsNull(Me.Print_1_Total_Time_Days.Value) Then
lngPrintTime = 0
Else
lngPrintTime = Me.Print_1_Total_Time_Days.Value
End If
Select Case lngPrintTime
Case Is > 15 'print time is greater than 15 days
Me.Print_1_Total_Time_Days.FontWeight = 900
Case Is = 0 'do nothing
End Select
end sub
 
You should add a Case Else to return the FontWeight to whatever (400?):

Select Case lngPrintTime
Case Is > 15 'print time is greater than 15 days
Me.Print_1_Total_Time_Days.FontWeight = 900
Case Else
Me.Print_1_Total_Time_Days.FontWeight = 400 '?
End Select
 
Back
Top