One way of achieving this to create a license table with your license
agreement. at the load event of the startup from write code to refer
to this table for license agreement and date of expiry. To give you an
example. here is the structure for my license table.
Fields
creadate date/time
enddate date/time
here is the code on load event of startup form
Set DB = CurrentDb
Set RS = DB.OPENRECORDSET("SELECT * FROM license")
If RS.RecordCount = 0 Then
MsgBox ("Thank you for using this application. We have worked hard
to make this application as simple as Possible. This is a Trial
Version which will expires on " & Format(Date + 30, "dd/mmm/yyyy") &
". We will provide you full version of this application very soon")
RS.AddNew
RS!createdate = Date
RS!enddate = Date + 30
RS.Update
Else
If RS!enddate < Date Then
MsgBox ("Application License has expired! Please Contact your
vendor")
Else
If RS!createdate > Date Then
MsgBox ("Application License has expired! Please Contact your
vendor")
End If
End If
End If
RS.Close
DB.Close
hope this give you an idea.
rgds
khyam
______________________________ Reply Separator
_________________________________
Subject: [access] Licens key in applications
Author: Access <access@p...> at Internet-gateway
Date: 8/30/2002 8:44 AM
Help!
I' ve made an application that I want to distribute. How do I make a
licens key (with or without a trialperiod)???
Thanks for any inputs.