code not working

[pfunk]

i am having trouble with this code. even thought the payment due date has not arrived it still promts users to change.

Private Sub Notes_Click()
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 your status codes to Broken Promise ASAP."
Me![Status Codes].SetFocus
End If
End Sub

 

[Golom]

Maybe you want

Private Sub Notes_Click()
If Trim(Me![Status Codes]) = "PROMISE" [b][red]AND[/red] [/b] _
   Trim(Me![Payment_Due_Date]) <= Date() Then
   MsgBox "Your Debtor has Broken th[red]ei[/red]r promise and you did not follow up on it." & vbCrLf & _
          "Please code your status codes to Broken Promise ASAP."
   Me![Status Codes].SetFocus
End If
End Sub

With [red]OR[/red] it will prompt when Me![Status Codes]) = "PROMISE", regardless of the value of Payment_Due_Date.

 

[pfunk]

Golom no dice now its not even prompting the msg box.

 

[JoeAtWork]

Have you confirmed by stepping through the code that the conditions are actually being met? i.e. that [Status Codes] = "PROMISE" AND [Payment_Due_Date] <= Date()

 

[pfunk]

i have test a couple records back dating the promise [Payment_Due_Date] <= Date() for ie. testing purposes.

 

[Golom]

Try

If Trim$(Me![Status Codes]) = "PROMISE" And _
   [red]CDate([/red]Trim$(Me![Payment_Due_Date])[red])[/red] <= Date Then

It is possible that using "Trim" is attempting a string to date comparison. Force the conversion to date with the above code.

 

[TheAceMan1]

How are ya pfunk . . .

A simulation proves [blue]Golom's[/blue] last post is correct. [blue]Trim[/blue] is [purple]coercing[/purple] a string value! . . .

See Ya! . . . . . .

Be sure to see thread181-473997
Also faq181-2886

 

[pfunk]

thanks worked like a charm. what is CDate?

 

[Golom]

CDate" is documented here