Good evening all

How do I prevent the database from the copy to Calculator unlicensed

Thank you
Salute to ([Cybercow] + [BOB G] + [arnelgp] +[Michael])

Not quite sure if I understand (it looks like you might have used an online translator but I am not sure it is very accurate).

I think you may be asking how to prevent someone from making unauthorized copies or installations of your database on other computers.

If this is what you are asking, then it's not really that easy to prevent someone from copying it to their computer. After all they are just files as far as the computer is concerned.

You could probably implement some sort of logic in your application that requires the user to provide a license key of some kind in order to activate it. A lot of software may allow you to run for a limited time in order to let the user decide if they want to purchase a license. Other times, software will operate in a feature-limited mode until the full license is purchased.

Both those approaches can actually be better than just preventing the user from running it at all. It gives them a chance to try your application and, hopefully, decide they need to buy that license from you. It's a bit too big of a topic to actually go into the details of how you implement the licensing logic -- there are many ways this can be done.

Unless, of course, the application is intended to be used exclusively within a company and is not intended for the outside -- in this case, you should have it installed on the company's computers and not give the user direct access to the folder containing the application files.

Mike

This is one way to do it.

Hi Glen
thank you for all

I have updated Lou’s demo to an Access 2007 demo and it delete's the module and form used to set the expiry and registration information upon first use of the database. After setting the expiry and registration code the form will close and the database will quit thus forcing user to open it and delete the module and form. Thus allowing you to set it and forget it after entering a record of it in another database. So you will also need a database to keep track of the organization’s name and registration code that you have set the database to. I would name this database to the name of your project and add RegInfo to the end of it. An example would be MyDemoTrialRegInfo.accdb

When entering your registration code please note it is case sensitive and can contain alpha numerical characters.

Please remember that you have to hold the shift key down while opening the Trial Tester Sample database to set expiry and registration code first. Do not use the Trial Demo Code database to test the code, you may make a copy of it and use that to test with but if you use the Demo Code database you will lose the code forever.

Please note the new references as they differ from Lou’s Access 97, 2000 and 2002 mdb’s references.

Hi Glen
Thank you
Ok I use 2007

hi glen
See to that VBA
It's not working you have
how Work the database ?
Private Sub Form_Open(Cancel As Integer)
'Application.References.AddFromFile
'Dim ref As Reference
DoCmd.Maximize
Dim mm As Long
Dim RE As String
Dim REE As String
Dim aa As Integer
Dim a As String
Dim ok As Boolean

mm = HKEY_CLASSES_ROOT
RE = QueryValue(mm, "Light\A0\A20\E", "E")
REE = QueryValue(mm, "Light\A0\A20\AP", "Apw")

If REE = "azhar942003" Then
ok = ChangeProperty("AllowBReakIntoCode", dbBoolean, True)
ok = ChangeProperty("AllowSpecialKeys", dbBoolean, True)
ok = ChangeProperty("AllowBypassKey", dbBoolean, True)
ok = ChangeProperty("StartUpShowDBWindow", dbBoolean, True)
ok = ChangeProperty("AllowToolbarChanges", dbBoolean, True)
ok = ChangeProperty("AppTitle", dbBoolean, True)
ok = ChangeProperty("AppIcon", dbBoolean, True)
ok = ChangeProperty("StartupMenuBar", dbBoolean, True)
ok = ChangeProperty("StartupShortcutMenuBar", dbBoolean, True)
ok = ChangeProperty("AllowFullMenus", dbBoolean, True)
ok = ChangeProperty("AllowShortcutMenus", dbBoolean, True)
ok = ChangeProperty("AllowBuiltInToolbars", dbBoolean, True)
Else
ok = ChangeProperty("AllowBReakIntoCode", dbBoolean, False)
ok = ChangeProperty("AllowSpecialKeys", dbBoolean, False)
ok = ChangeProperty("AllowBypassKey", dbBoolean, False)
ok = ChangeProperty("StartUpShowDBWindow", dbBoolean, False)
ok = ChangeProperty("AllowToolbarChanges", dbBoolean, True)
ok = ChangeProperty("AppTitle", dbBoolean, False)
ok = ChangeProperty("AppIcon", dbBoolean, False)
ok = ChangeProperty("StartupMenuBar", dbBoolean, False)
ok = ChangeProperty("StartupShortcutMenuBar", dbBoolean, False)
ok = ChangeProperty("AllowFullMenus", dbBoolean, False)
ok = ChangeProperty("AllowShortcutMenus", dbBoolean, True)
ok = ChangeProperty("AllowBuiltInToolbars", dbBoolean, True)
End If
If RE <> "1" Then DoCmd.Quit
Application.SetOption "show status bar", -1
Application.SetOption "Show Startup Dialog Box", 0
Application.SetOption "Show Hidden Objects", 0
Application.SetOption "ShowWindowsInTaskbar", 0
Application.SetOption "Left Margin", 10
Application.SetOption "Right Margin", 10
Application.SetOption "Top Margin", 10
Application.SetOption "Bottom Margin", 10
'Application.SetOption "Default Database Directory", 10
Application.SetOption "Confirm Action Queries", 0
Application.SetOption "Confirm Record Changes", -1
DoCmd.Close acForm, "Main"
End Sub

Hi Glen
Thank you Glen

(((((KNK2007TrialDemoCode)))) Very Good
Thank you brother

Where did you get this code?

It is trying to set database options.

Hi Glen
I use this code for the programmatic
It's like crack