Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

  • Congratulations Westi on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Database trial expiry 1

Status
Not open for further replies.

ahg

Technical User
Aug 21, 2002
27
CA
I send out a .MDE demo which expires on a date restriction set in the onUnload event of the timed Welcome screen. Because you cannot change the code in an MDE file I have to set the date - which is approx today plus 30 days - before making the MDE file.
Can anyone advise me of a way that the date will be automatically set to today plus 30 days when the MDE file is first opened by the recipient.

Thanks for any help

AHG
 
I have a time-bomb example that uses a number of times instead of a date.....you could probably modify it to your needs. Send an email to my address below and I will send it to you.

Otherwise, depending on how "secure" you want it, there are two other options I know. You can use SaveSetting and GetSetting to create a Registry entry with the "install date" and compare against today's date....I also have an example of this.....

Or you can use API calls to create a "true" registry entry to do the same. This is harder to code, but is much more "secure" because you can put the reg entry anywhere you want, instead of inside the VB and VBA Setting folder used by access....I don't have an example ofthis set up right now, but I do have all the code necessary to do it... The secret to creativity is knowing how to hide your sources. - Albert Einstein [spin]

Robert L. Johnson III, A+, Network+, MCP
Access Developer/Programmer
robert.l.johnson.iii@citigroup.com
 
well, depending on how good you are with programming... I would suggest making a table that is totaly blank... just one field, no information...

On open of the first form, open a recordset to this table, if it's empty, add a record of the current date. if there is a record there, check to make sure the date is valid...

if rst!date < date()-30 then
msgbox &quot;Trial has expired
docmd.quit
else
'load next form...
end if

hope this helps a bit...

i can help with code more tomorow...

--James
junior1544@jmjpc.net
Life is change. To deny change is to deny life.
 
Status
Not open for further replies.

Part and Inventory Search

Sponsor

Back
Top