Giving Access program an expiraton time (like a demo version) 1

[talontc]

I'm creating an Access 2003 db for a small company and would like to send them a copy of what I have finished so far. I would like to add an expiration or "Trial Version" functionality to it so that it is only usable for a limited time period. Is there any way to do this in Access or VBA?
Thank you for any help.

Dan Tuma
Talon Tech.

 

[Andrzejek]

The simplest way is to check the Date in your app:

If Date > "9/5/2008" Then
    MsgBox "Trial period is over."
    End
End If

This, of course, does not prevent your user to change the machine settings (date) to have your app for longer, but people are lazy and may not know how you did it.

Have fun.

---- Andy

 

[talontc]

How does this code disable/end the program?
Dan

 

[PHV]

I'd use this instead:
If Date > #2008-09-05# Then
MsgBox "Trial period is over."
Application.Quit
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[talontc]

Where in the code window would I enter this, on the main forms Load event?

 

[docjohn52]

You should hide it a little, I mean the load event is a little obvious, isn't it?

Save it as a worksheet function or stick it in a module, and chain a couple of do-nothing calls to functions together, put a call to a gettime() function in the load event, then call something else in it...

And don't name the actual function "deadbeats(dte as date)"

 

[talontc]

Got it. Makes allot of sense
Thank you
Dan Tuma
Talon Tech

 

[missinglinq]

What I've done is hide the cutoff date in the Tag Property of the form, then use something like

Private Sub Form_Load()
 If Date > Me.Tag Then 
  MsgBox "You have encountered a problem! Please call ABC Developers to report this error!"
  Application.Quit
 End If
End Sub

Then when they call, you've got them! What you have to keep in mind, I think, is that if the people using your apps were that Access savvy, they'd be developing their own databases instead of using off the rack apps from someone else and looking to cheat you.


The Missinglinq

Richmond, Virginia

There's ALWAYS more than one way to skin a cat!