Form on exit event procedure not working any idea why? 1

[pfunk]

Private Sub Notes_Exit(Cancel As Integer)
If Trim(Me![Status Codes]) = "PROMISE" Or Trim(Me![Payment_Due_Date]) = "<date" Then
MsgBox "Your Debtor has Broken thier promise and you did not follow up on it therefore please code to Broken Promise ASAP."
Me![Status Codes].SetFocus
End If
End Sub

 

[Remou]

What do you mean 'not working'?

Do you mean to compare to current date?

 

[stevedemo]

It looks like a minor codeing error

You have:

If Trim(Me![Status Codes]) = "PROMISE" Or Trim(Me![Payment_Due_Date]) = "<date" Then


Try this:


If Trim(Me![Status Codes]) = "PROMISE" Or Trim(Me![Payment_Due_Date]) =< date Then

All I want is the chance to prove money won't make me happy.

 

[stevedemo]

That should be:

If Trim(Me![Status Codes]) = "PROMISE" Or Trim(Me![Payment_Due_Date]) <= Date Then




All I want is the chance to prove money won't make me happy.