Pre-loaded timestamp immune to conditional formatting

[gaker10]

Refers to thread: https://www.accessforums.net/access/...tml#post238297

I have conditional formatting on a form with fields that are short dates. If I preload this date from a corresponding drop down, the formatting does not carry over. If I manually re-click the date in the calendar, the formatting executes. But I'm not going to re-click my date every time I pre-load a timestamp. So, how do I get around this?

Current formatting rules for a short date field:

[June7]

The date is picked from a combobox but the Conditional Formatting is on a textbox? The textbox is UNBOUND with an expression in ControlSource that references the combobox?

Conditional Formatting can be applied to a combobox.

I tested these arrangements and all work. Cannot replicate issue.

If you want to provide db for analysis, follow instructions at bottom of my post.

[gaker10]

The date is filled based on a selection from a combobox. Two separate boxes that are related. For example, I pick a QtyA of 100 from my combobox, and if the qty already exists in the table, a date pops up that is stored in the table of when this QtyA was entered. Screenshots of an example:



The 8/15/2014 should be green upon being filled into the field, but it is not. If I click the little calender icon and choose the same date and then move focus outside of the field, it turns green.

[June7]

What is the expression or code that populates the textbox?

Maybe wrap in CDate() function.

[gaker10]

A simple column reference:

Private Sub cboQtyA_AfterUpdate()
'When a preset QtyA is entered, fill in the corresponding price, date, and vendor


Me.txtUnitPriceA = Me.cboQtyA.Column(1)
Me.txtPriceADate = Me.cboQtyA.Column(2)
Me.txtVendorA = Me.cboQtyA.Column(3)


End Sub

[gaker10]

Just fyi, the source table of all of this info has the same conditional formatting and it works fine >_<

[June7]

What do you mean the source table has conditional formatting? AFAIK, table fields cannot have conditional formatting.

Try:
CDate(Me.cboQtyA.Column(2))

[John_G]

Hi -

Are you sure your code is actually putting a date value in the unbound text box, and not just the text representation of a date?

As june7 suggested, try using Me.txtPriceADate = CDate(Me.cboQtyA.Column(2)) to force the conversion to an actual date value.

[gaker10]

You're right, the table does not have the conditional formatting. The split form associated with it has the formatting. My apologies



The associated table contains the date, so I assume it is a true value and not just a representation.

The CDate() wrap worked Thank you!