30-day evaluation ends -- need to "remove some functionality"

  • Thread starter Thread starter Tom
  • Start date Start date
T

Tom

I want to disable some db functionality once a 30-evaluation period has
ended (and the customer has not purchased the license).

Would you recommend to put something like below into the OnLoad function of
my start form?

Functin OnLoad

If EvaluationEndDate = SystemDate Then
(e.g.) Me.Form.AllowAdditions = False
End If

End Sub

Not sure how to set the date = EvaluationEndDate (it should be equal to
installation date)... I'll worry about that step later though.


Is this a good method or would you recommend something different? How do
I actually write the proper command so that functionality has been removed
when EvaluationEndingDate equals the system time?

BTW, I intend to save the db as MDE so the customer couldn't remove the IF
THEN statement from the OnLoad function?


Tom
 
Hi,

Now() or Date() return the system date.

You are better to use a <= than a =.

You can use a key in the registry to : on installation (first run, detected
because the key does not exists), set its value to Date() + 30. On other
next runs, ie, when the key exists, do not set it, but compare it to Date()
and reduce functionalities if the test indicates to do so.

Your program must have the rights to write in the registry, if you adopt
that solution.


Hoping it may help,
Vanderghast, Access MVP
 
Back
Top