Calculate expiry

[Bob500]

Hi,

How would I code this

If (the current date)
and 'datereceived'
are greater than 'date expected'
then show an alert label
---------------------------------------
I currently have this code

Private Sub Form_Load()
if Now and date_reply_received > dateexpectedex
then Me.lblalert.Visible = Not Me.lblalert.Visible

End Sub


But it doesn't work. Also should it be in the onload of the subform or somewhere else

Thanks!

 

[TonyJollans]

Hi Bob500,

You must explicitly state all comparands so use ..

if Now

  > dateexpectedex

and date_reply_received > dateexpectedex

Enjoy,
Tony