Conditional Formatting

[aman909]

Hello,

Im trying to use conditional formatting in a text box on a form.

What im trying to do is that conditional formatting changes the colour of the text in the text box. I need the conditional formatting to look up another text box.

This is what i need:
i have one text box which is called colour and it shows various colours.
What i would like to do is in the other text box with conditional formatting is for the text box to change colour but only when there are certain colours in there.

For example i have these colours in my colour text box,

Red, Blue, Black, Green, Yellow.
What i would like is for the conditional formatting to work when the colour Red, Blue or Yellow is in the text box.

Can you please suggest the best way to do this.
If you need any more information please ask

[FishVal]

Hello,

Im trying to use conditional formatting in a text box on a form.

What im trying to do is that conditional formatting changes the colour of the text in the text box. I need the conditional formatting to look up another text box.

This is what i need:
i have one text box which is called colour and it shows various colours.
What i would like to do is in the other text box with conditional formatting is for the text box to change colour but only when there are certain colours in there.

For example i have these colours in my colour text box,

Red, Blue, Black, Green, Yellow.
What i would like is for the conditional formatting to work when the colour Red, Blue or Yellow is in the text box.

Can you please suggest the best way to do this.
If you need any more information please ask

Hi!

Here is an example of how you can change FormatCondition(0).Forecolor in txtCondFrmt textbox, handling an AfterUpdate event in txtColor textbox where colorname is inputted.

Assumed:

• [txtCondRfmt] has at list one conditional formatting and only the first is to be changed
• color name is entered as text to [txtColor]

Private Sub txtColor_AfterUpdate()
    With Me.txtCondFrmt.FormatConditions(0)
        Select Case Me.txtColor
            Case "Red"
                .ForeColor = vbRed
            Case "Blue"
                .ForeColor = vbBlue
            Case "Yellow"
                .ForeColor = vbYellow
        End Select
    End With
End Sub
 

This is not more than simple example.
Certainly a working version may be more nice.