Subform conditional formatting disappear after textbox change event

[joe5]

Dear all,

I have a main form called "frmMain" that contains 3 items:

1. text box named "tbxDate", that has a datepicker in it
2. button named "btnClear"
3. tabular subform called "sFrm" showing 2 fields (id, purDate)

The subform "sFrm" has a conditional formatting on ita records.

When i choose a date from the datepicker in the text box "tbxDate", the event tbxDate_change occur and filters the subform on its "purDate" field and the conditional formatting disappear. But when click a left click with ny mouse anywhere on the main form "frmMain" the conditional formatting will show again... !!



Any idea how to solve this ??

Thank you

[isladogs]

Try setting the focus to a control on the subform after selecting a date e.g.

Me.sfrm.Form.purDate.SetFocus

[joe5]

Try setting the focus to a control on the subform after selecting a date e.g.

Me.sfrm.Form.purDate.SetFocus

I tried to but still not working, i even tried to setfocus on the button "btnClear" that is on thr main form "frmMain" but still not showing. it is only working when i click a left click with my mouse on anywhere on the main form "frmMain" it does like a refresh or something and the conditional formatting re-appear on the subform.

Though i tried the "me.refresh" and the "me.requery" but still nothing.

[isladogs]

The focus needs to be on the subform. Do you have a subform command button you could set the focus to?

[joe5]

The focus needs to be on the subform. Do you have a subform command button you could set the focus to?

I just added a button on the subform and named it "btnTrial".

But still nothing.... here is the code:

Private Sub tbxDate_Change()
     'i do my filter here
     With Me.sFrm.Form
          .FilterOn = False
          .Filter = "[purDate] = " & Me.tbxDate.Value & ";"
          .FilterOn = True
     End With
     ' and here i added the setfocus
     Me.sFrm.Form.btnTrial.SetFocus
End Sub

[isladogs]

I just added a button on the subform and named it "btnTrial".

But still nothing.... here is the code:

Private Sub tbxDate_Change()
     'i do my filter here
     With Me.sFrm.Form
          .FilterOn = False
          .Filter = "[purDate] = " & Me.tbxDate.Value & ";"
          .FilterOn = True
     End With
     ' and here i added the setfocus
     Me.sFrm.Form.btnTrial.SetFocus
End Sub

As its a date field, you need date delimiters

.Filter = "[purDate] = #" & Me.tbxDate.Value & "#;"

Have you checked it is setting the focus as you would expect?
If not, you may have a different CONTROL name for your subform. Use that.
You could also try adding a DoEvents line before the set focus line though I doubt that will solve it

[joe5]

As its a date field, you need date delimiters

.Filter = "[purDate] = #" & Me.tbxDate.Value & "#;"

Have you checked it is setting the focus as you would expect?
If not, you may have a different CONTROL name for your subform. Use that.
You could also try adding a DoEvents line before the set focus line though I doubt that will solve it

I am sorry i was typing the code on my mobile i didnt pay attention for the # for the date filter...

Yes i am sure about the control name and still nothing working !!!

I really have no idea :s !!!

[isladogs]

Nor me. Perhaps try and prevent the CF disappearing in the first place.
I have a better date picker than the built in version that is very easy to use.
It may solve the problem
https://www.access-programmers.co.uk...d.php?t=298062
It's a nifty little utility even if it doesn't help.