Conditional formatting not working

L

Les

Hi all, i have text boxes with conditional formatting on, which worked
fine when i had the "Control Source" as the following.
= DLookup("[TM]", "tblAveTimeToRaisPoPerDeptAi")

I then changed it and put it into code using the following to make the
response time quicker, which it is but have now lost the conditional
formatting !!

Private Sub Form_Current()

Dim TM As Variant
TM = DLookup("[TM]", "tblAveTimeToRaisPoPerDeptAi")
txtTMAve = TM

End Sub

As a newbie i am stuck !!

can anybody help with this ?
 
Top