I'e created a data entry form in which all records are input into the database, including an action date, i've managed to get this action date to bring up a message box, but only when the user comes to that particular record, which happens EVERY time that record is selected unless the action date text box is cleared, so this becomes annoying:
If possible an ideal version of this would be either one that checks all records upon the form load (any code that checks all records would help ^_^) either that, or some code that checks this in real time, i.e. when it reached 3pm on October 15th the message box appears, assuming the database is open 24/7.
Code:
Private Sub Form_Current()
If db2.[Form_Company contacts1].Action_Date = Date Then
MsgBox (db2.[Form_Company contacts1].[Company Name]), vbOKOnly Or vbInformation, "An Action Date has Been Met For..."
MsgBox ("Please check this companies Action Log and clear the Action Date"), vbOKOnly Or vbExclamation, "IMPORTANT"
End If
If db2.[Form_Company contacts1].Action_Date < Date Then
MsgBox (db2.[Form_Company contacts1].[Company Name]), vbOKOnly Or vbExclamation, "An Action Date is Overdue For..."
MsgBox ("Please check this companies Action Log and CLEAR THE ACTION DATE"), vbOKOnly Or vbExclamation, "IMPORTANT"
End If
End Sub
If possible an ideal version of this would be either one that checks all records upon the form load (any code that checks all records would help ^_^) either that, or some code that checks this in real time, i.e. when it reached 3pm on October 15th the message box appears, assuming the database is open 24/7.