never mind, figured it out. Here's the solution in case someone needs it someday.
Private Sub Detail_Format(Cancel As Integer, FormatCount As Integer)
If [status] = "Needs Packed" Then 'status is the field it is checking for a value
status.ForeColor = RGB(255, 0, 0) 'rgb(,, ) is the red, green blue values of colors
antshipdate.ForeColor = RGB(255, 0, 0)
sorder.ForeColor = RGB(255, 0, 0)
smfgnum.ForeColor = RGB(255, 0, 0) 'these are all the fields you change colors of
companyname.ForeColor = RGB(255, 0, 0)
prodno.ForeColor = RGB(255, 0, 0)
shipqty.ForeColor = RGB(255, 0, 0)
End If
end sub
|