colored text on a form based on time

[mkelly]

I want to pull up a form and have the text lines change colors based on how much time is left for the job.
The following code will work on a report if I use a "private sub"

Can anyone tell me how to make it work on a form? Any help greatly appriciated.

Option Explicit
Sub Form(job_status_report_table)
Dim mark As Single
Expr2 = Me![combined]

Select Case Expr2

Case -99999999 To 0
Me![combined].ForeColor = 255
Case 1 To 30
Me![combined].ForeColor = 4227327
Case 31 To 120
Me![combined].ForeColor = 10485760
Case 121 To 999999999
Me![combined].ForeColor = 0

Case Else
End Select

End Sub

 

[IMO]

Are you using A2k ?, if yes you can use conditional formatting in the Format menu

IMO

 

[mkelly]

yes I have 2k but I do not know how to use conditional formatting. What would I need to do?