How to dezactivate MS Access 2003 after 28 days?
I want my datadase applications in MS Access 2003 to be dezactivated from the user after 28 days if he do not pay me the application. It is like a trial version. The user told me that he want to try for a few days and if he like it , he will pay me. So how to do a procedure to dezactivate the application after 28 days.
Build a Macro named "Autoexec" that calls a VBA Function to evaluate the days used and Quit the DB if >28.
Function TrialTime()
Dim StartDate as Date, TimeUsed as Integer
Set StartDate = #04/13/2010#
Set TimeUsed = DateDiff (StartDate,Date())
IF TimeUsed>28 Then Application.Quit Else Exit Function
End Function
Next step in "Autoexec" would be Your normal routine (open a switchboard, update a table, whatever).
Be sure to go into the Startup Options and deactivate the "Special Keys" (like F11 to show DB window).
If Youe end user knows MS Acess VBA He can get around it, but if not He’s stuck out after 28 days.
You can always send him a new copy without the 28 day check once He pays You, or go in and remove it from "Autoexec".
April 17th, 2010 at 2:02 am
Build a Macro named "Autoexec" that calls a VBA Function to evaluate the days used and Quit the DB if >28.
Function TrialTime()
Dim StartDate as Date, TimeUsed as Integer
Set StartDate = #04/13/2010#
Set TimeUsed = DateDiff (StartDate,Date())
IF TimeUsed>28 Then Application.Quit Else Exit Function
End Function
Next step in "Autoexec" would be Your normal routine (open a switchboard, update a table, whatever).
Be sure to go into the Startup Options and deactivate the "Special Keys" (like F11 to show DB window).
If Youe end user knows MS Acess VBA He can get around it, but if not He’s stuck out after 28 days.
You can always send him a new copy without the 28 day check once He pays You, or go in and remove it from "Autoexec".
References :