OK my final
Form_Open(Cancel As Integer)
Dim RegObj, RegKey
Set RegObj = CreateObject("WScript.Shell")
RegKey = RegObj.RegRead("HKLM\Software\My aplication\Security Code")
If Not RegKey = 1 Then DoCmd.Quit
End Sub
Ok I got it...
Private Sub Form_Open(Cancel As Integer)
Dim RegObj, RegKey
Set RegObj = CreateObject("WScript.Shell")
RegKey = RegObj.RegRead("HKLM\Software\My application\Security Code")
If RegKey = 0 Then DoCmd.Quit
End Sub
But Now I receive a Debug Windowif the registry key are not...
Yes but Any example have what I want.
Read my 1st post on this topic. I dontwant to write on the registry I want to read on registry and If the value = 1 thenload the form If not them close the DB
Al the example are for write. I dont want to write. I want to read and Load form.
Hello People
I want to read from the registry a value. If the value = 1 the continue loading the main form. If th value dont exist or = 0 then close the database.
I think its a simple code but I cant find this code. Any Help on this?
Thanks
Thanks for your help Marianne and for your attention on this postbut I dont know Where or how create this
I dont know Ifthis is a module or if this we need to insert on event procedure on what function.
I seeth code was youpost here and I read detailed and I dont undestand the code.
Im not a...
I share the C: drive and the folder on the servr and set permissions to everyone.
My application load but appear a message trying to find a local database. I save the tables in the same folder that the Frond End (Main Form) C:\my application
Poeple
Maibe I dont explain good what I looking for...
I have a database (accde) created on a folder in local drive (C:)
If I copy this folder and paste to other computer, the database work perfect.
I want to prevent this (Copy the folder and move to another computer)
All what I try to do...