Formatting a text box based on the contents of another

[Deborah V. Gardner]

I would like to use conditional formatting on a subform and have 2
textbox affected.

ItemID Qty Cost OrderDate
123 1 10.00 3/3/05
345 2 5.00 3/2/05
678 1 7.00 3/3/05

In the above example, if the date in a combo box is 3/3/05, I want the
text in ItemID and OrderDate to be green for just those records with an
OrderDate 3/3/05. I have it so that the OrderDate turns green but not
the Item ID.

With Forms("frmOrders").Controls("OrderDate").FormatCon ditions _
.Add(acFieldValue, acEqual, "=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbBlue
End With

What can I add to make the ItemID font turn color also just for those
records with an OrderDate 3/3/05?

Thank you,
Deborah

[MGFoster]

Deborah V. Gardner wrote:

I would like to use conditional formatting on a subform and have 2
textbox affected.

ItemID Qty Cost OrderDate
123 1 10.00 3/3/05
345 2 5.00 3/2/05
678 1 7.00 3/3/05

In the above example, if the date in a combo box is 3/3/05, I want the
text in ItemID and OrderDate to be green for just those records with an
OrderDate 3/3/05. I have it so that the OrderDate turns green but not
the Item ID.

With Forms("frmOrders").Controls("OrderDate").FormatCon ditions _
.Add(acFieldValue, acEqual, "=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbBlue
End With

What can I add to make the ItemID font turn color also just for those
records with an OrderDate 3/3/05?

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Wouldn't it be the same thing, just change the reference to the control:

With Forms("frmOrders").Controls("ItemID").FormatCondit ions
.Add(acFieldValue, acEqual, "=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbGreen
End With

Of course you know that if the VBA code is in the module of the form you
are referencing you can use the "Me" keyword:

With Me!ItemID.FormatConditions
--
MGFoster:::mgf00 <at> earthlink <decimal-point> net
Oakland, CA (USA)

-----BEGIN PGP SIGNATURE-----
Version: PGP for Personal Privacy 5.0
Charset: noconv

iQA/AwUBQjIEuYechKqOuFEgEQKP8QCgiyrs0e0Sns8MPJG2y9MTAK 8z02wAoOss
5udMSVdrj1THebBkQzgia3eQ
=Hu9A
-----END PGP SIGNATURE-----

[Deborah V. Gardner]

I did try your suggestion. I also tried

With Forms("frmOrders").Controls("ItemID").FormatCondit ions
.Add(acFieldValue, acEqual,
"OrderDate=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbGreen
End With

Also, I am aware of the Me clone but thanks for suggesting it. I usually use
it but didn't since I copied this code and just changed it to reflect my
controls.

Deborah

MGFoster wrote:

Deborah V. Gardner wrote:

I would like to use conditional formatting on a subform and have 2
textbox affected.

ItemID Qty Cost OrderDate
123 1 10.00 3/3/05
345 2 5.00 3/2/05
678 1 7.00 3/3/05

In the above example, if the date in a combo box is 3/3/05, I want the
text in ItemID and OrderDate to be green for just those records with an
OrderDate 3/3/05. I have it so that the OrderDate turns green but not
the Item ID.

With Forms("frmOrders").Controls("OrderDate").FormatCon ditions _
.Add(acFieldValue, acEqual, "=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbBlue
End With

What can I add to make the ItemID font turn color also just for those
records with an OrderDate 3/3/05?

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Wouldn't it be the same thing, just change the reference to the control:

With Forms("frmOrders").Controls("ItemID").FormatCondit ions
.Add(acFieldValue, acEqual, "=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbGreen
End With

Of course you know that if the VBA code is in the module of the form you
are referencing you can use the "Me" keyword:

With Me!ItemID.FormatConditions

[Deborah V. Gardner]

I figured it out. I changed acFieldValue to acExpression

With Me.Controls("ItemID").FormatConditions
.Add(acExpression, acEqual, "OrderDate=Forms!frmOrders![cboOrderDate]")

.ForeColor = vbGreen
End With

This now works.

Deborah

"Deborah V. Gardner" wrote:

I did try your suggestion. I also tried

With Forms("frmOrders").Controls("ItemID").FormatCondit ions
.Add(acFieldValue, acEqual,
"OrderDate=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbGreen
End With

Also, I am aware of the Me clone but thanks for suggesting it. I usually use
it but didn't since I copied this code and just changed it to reflect my
controls.

Deborah

MGFoster wrote:

Deborah V. Gardner wrote:

I would like to use conditional formatting on a subform and have 2
textbox affected.

ItemID Qty Cost OrderDate
123 1 10.00 3/3/05
345 2 5.00 3/2/05
678 1 7.00 3/3/05

In the above example, if the date in a combo box is 3/3/05, I want the
text in ItemID and OrderDate to be green for just those records with an
OrderDate 3/3/05. I have it so that the OrderDate turns green but not
the Item ID.

With Forms("frmOrders").Controls("OrderDate").FormatCon ditions _
.Add(acFieldValue, acEqual, "=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbBlue
End With

What can I add to make the ItemID font turn color also just for those
records with an OrderDate 3/3/05?

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

Wouldn't it be the same thing, just change the reference to the control:

With Forms("frmOrders").Controls("ItemID").FormatCondit ions
.Add(acFieldValue, acEqual, "=Forms!frmOrders![cboOrderDate]")
.ForeColor = vbGreen
End With

Of course you know that if the VBA code is in the module of the form you
are referencing you can use the "Me" keyword:

With Me!ItemID.FormatConditions