making a demo of a database

[Dave]

I want to make a demo version of my software.

I dont want to hard code a expiry date in because its simple to change the
system date

I dont want to go and disable all of the save buttons cos there are hundreds
of them and
you need to be able to save new data to use some of the functionallity of
the software

i thought of limiting the db to a number of uses

I tried using self modifying modifying code to change the value of a
constant down to zero (at which point the db would auto close)
this worked fine until i made the db into an mde

code-----------------------------------------------------------

Option Compare Database
Option Explicit
Const numberofgos As Integer = 0

Private Sub Form_Open(Cancel As Integer)

Dim varcurentNumber As Integer
varcurentNumber = numberofgos

If numberofgos <= 0 Then
MsgBox "The licence for this demo has expired. Please contact
ELectrical retailer systems for more information", vbInformation
Application.Quit
Else
MsgBox "This is a limited version. You have " & varcurentNumber & "
more uses of this software remaining."
Module.DeleteLines 3, 1
Module.InsertLines 3, "const numberofgos as integer = " &
varcurentNumber - 1

End If

End Sub

----------------------------------------------------------end code

I dont want to use a value held in a table because that would be easy to
change

so any suggestions?

I would like to do this myself but am willing to buy some software to do
this for me (as a last resort)
so any suggestions / prices there would also be appreciated


cheers
Dave

 

[MikeD]

Hi,

I've had to do the same thing in the past (a few years ago now!). What I did
was provide full functionality, but limit the number of records in a table
to a certain number (i.e. allow enough for testing but not to use as a full
product). Just get the code to count the number of records in the table and
compare to your hard coded value; if it's greater then alert the user and
close the DB.

HTH

<M>ike

 

[Van T. Dinh]

Try Tony Toews' article:

http://www.granite.ab.ca/access/demo.htm