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

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" <(E-Mail Removed)> wrote in message
news:82EC939E-2F44-4F2F-B1FA-(E-Mail Removed)...
>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

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" <(E-Mail Removed)> wrote in message
> news:82EC939E-2F44-4F2F-B1FA-(E-Mail Removed)...
> >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
>
>
> .
>

Dee,
I suspected that this was a combo box, because a text control with
"High" in it would have at least gone red after entereing "High".
Sounds like what is "displayed" in Critical is not what the real value
of Critical is.
Please describe your combo in detail... Columns, NoOfCols, ColWidths,
etc...

And try this...
If the your combo is named Critical, then place an unbound text
control on the form, and give it a ControlSource of...
= [Critical]

**When you set the value of combo Critical, what does the text control
indicate?
**Does it display "High" when "High" is selected in Critical?
**Is Critical a Lookup field in your table design?
--
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" <(E-Mail Removed)> wrote in message
news:B946CD1B-B511-4F13-9FDA-(E-Mail Removed)...
> 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" <(E-Mail Removed)> wrote in message
>> news:82EC939E-2F44-4F2F-B1FA-(E-Mail Removed)...
>> >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
>>
>>
>> .
>>

Al,

It is a look up field, so I changed "high" to its number value and it now it
works in both the conditional format and in vba.

Thank you!

"Al Campagna" wrote:

> Dee,
> I suspected that this was a combo box, because a text control with
> "High" in it would have at least gone red after entereing "High".
> Sounds like what is "displayed" in Critical is not what the real value
> of Critical is.
> Please describe your combo in detail... Columns, NoOfCols, ColWidths,
> etc...
>
> And try this...
> If the your combo is named Critical, then place an unbound text
> control on the form, and give it a ControlSource of...
> = [Critical]
>
> **When you set the value of combo Critical, what does the text control
> indicate?
> **Does it display "High" when "High" is selected in Critical?
> **Is Critical a Lookup field in your table design?
> --
> 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" <(E-Mail Removed)> wrote in message
> news:B946CD1B-B511-4F13-9FDA-(E-Mail Removed)...
> > 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" <(E-Mail Removed)> wrote in message
> >> news:82EC939E-2F44-4F2F-B1FA-(E-Mail Removed)...
> >> >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
> >>
> >>
> >> .
> >>
>
>
> .
>

Very good! I avoid Loookup fields... just for that reason.
Too con-foosing...
Al

"Dee" <(E-Mail Removed)> wrote in message
news:77249C73-BE00-40D5-9C61-(E-Mail Removed)...
> Al,
>
> It is a look up field, so I changed "high" to its number value and it now
> it
> works in both the conditional format and in vba.
>
> Thank you!
>
> "Al Campagna" wrote:
>
>> Dee,
>> I suspected that this was a combo box, because a text control with
>> "High" in it would have at least gone red after entereing "High".
>> Sounds like what is "displayed" in Critical is not what the real
>> value
>> of Critical is.
>> Please describe your combo in detail... Columns, NoOfCols, ColWidths,
>> etc...
>>
>> And try this...
>> If the your combo is named Critical, then place an unbound text
>> control on the form, and give it a ControlSource of...
>> = [Critical]
>>
>> **When you set the value of combo Critical, what does the text control
>> indicate?
>> **Does it display "High" when "High" is selected in Critical?
>> **Is Critical a Lookup field in your table design?
>> --
>> 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" <(E-Mail Removed)> wrote in message
>> news:B946CD1B-B511-4F13-9FDA-(E-Mail Removed)...
>> > 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" <(E-Mail Removed)> wrote in message
>> >> news:82EC939E-2F44-4F2F-B1FA-(E-Mail Removed)...
>> >> >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
>> >>
>> >>
>> >> .
>> >>
>>
>>
>> .
>>