Timer

[warmunger]

Hi I want a vb app that if u put a record in after a year there must a msg apear that it should be checked out.
I cannot set the timer that after a year it should give u a msg

Please help

 

[JoanneM]

The small subroutine below will allow you to check at or after a year has passed using the datediff function

You may of course wish to edit the message text


sub Annualmsg(dtofLastEntry as date)
if DateDiff("yyyy", Now, dtofLastEntry)>= 1 then
msgbox "It has been a year or more since this record was accessed"
end if
end sub

regards

Jo