View Single Post
  #3  
Old May 19th, 2010, 05:11 PM posted to microsoft.public.access.forms
Dee
external usenet poster
 
Posts: 644
Default Conditional Format Not Working

Yes, I tried conditional formatting first since that would be the easiest and
quickest - so I thought - but it did not work. So then I tried the vba code
and that did not work. I also tried using your code in both the combo box
after update event and the forms on current event. Nothing happens. I dont
get any errors.(critical is the como box - in a single form). I am using
Access version 2007.

I tested the conditional formatting using "field has focus" and that works -
but not the "expression is"

"Al Campagna" wrote:

Dee,
Is Critical a manually entered text control? Or a Combo... or a List?
Is it bound to a text field? Details please...
Your code, although faulty (so far), should have (at least) turned
Critical to red
after an update with "High" See below for further tweaking of that code...
Also, what version of Access are you using... and if 2000 or greater...
have
you tried Conditional Formatting?
------------------
You'll also need to indicate what color you want Critical, if it's not
"High."
Otherwise, once you've turned Critical red, and go to another record... that
value will be red too... regardless whether it's "High" or not.

And... you'll also need to have that same code in the OnCurrent event of
the form, so that when you arrive at a record with Critical = "High", the
text
is made red. And if not, the text would be made black.

Private Sub Critical_AfterUpdate()
If Me.Critical = "High" Then
Me.Critical.ForeColor = vbRed
Else
Me.Critical.ForeColor = vbBlack
End If
End Sub

--
hth
Al Campagna
Microsoft Access MVP 2007-2009
http://home.comcast.net/~cccsolutions/index.html

"Find a job that you love... and you'll never work a day in your life."


"Dee" wrote in message
...
I am trying to get a field to turn red if the condition is "High"
I tried using the conditional formatting and it does not work. I also
tried
using the below vba code and this does not work either. I tried it in the
after update procedure and the on current procedure with no luck. Could
this
be an Access bug?

Private Sub Critical_AfterUpdate()
If Me.Critical = "High" Then
Me.Critical.ForeColor = vbRed
End If
End Sub



.