URGENT - Code stopped working

[RachelBedi]

I don't know what happened with this - I have tried compacting and repairing and it's not helping, at this point I don't know what to do!

This is my code for the on load event of a form



Private Sub Form_Load()
If ([Bank Modified Date]) <= Date - 10 Then
DoCmd.OpenForm "frmOlderThanFourteen", acFormDS
DoCmd.Close acForm, "frmActivators"
End If
End Sub

The form is a datasheet form with the following fields;

Paymode ID, Company Name, Date of Enrollment, Status, Date Modified, Number of Contacts, Issue, Paymode X Product, Assigned, Bank Mismatch, Comments, Bank Modified Date



The Bank Modified Date is a hidden column

This code was working this morning and is no more....can someone help PLEASE?!

I'm not getting any error it's just acting like there are no records in that date range (there are PLENTY)

[RachelBedi]

P.S. the same code on another computer's local copy is working - I even tried importing the working form back into the DB and that didn't help

[John_G]

Hi -

Your if statement is acting on the first member of the form's recordset, and only the first, so if the condition is false, then nothing appears to happen. The reason your code "no longer works" is that the data has changed.

I doubt that is what you want to do - I will hazard a guess that what you really want to do is open the "frmOlderThanFourteen" form to display ALL the records that qualify. Is that correct?

John