Help!! Overiding ByPass Key 2

[zevw]

Dim db As Database
Dim prp As Property

    Set db = CurrentDb
    Set prp = db.CreateProperty("AllowByPassKey", dbBoolean, False)
    db.Properties.Append prp

HELP ME HELP ME PLEASE PLEASE!!

I disabled the bypass (Shift) key and set a password that only I know, that will reactivate the bypass key again. It does not work. Now I"m in hot water (This is 4 months of work) I am getting an error and cannot open my program (the code). I cannot import a module or new form because Visual Basic is locked and can only be opened once the bybass key is activated.

Is there anything I can do, for example writing code in a macro like this

Currentdb.Properties.Delete "AllowByPassKey"
Currentdb.Properties.Refresh

and exporting into the program or any idea how I can go about this.

Please I am literally in tears.

Thanks in advance

 

[PHV]

In a brand new database execute the following code:
Set Bdd = DBEngine.Workspaces(0).OpenDatabase("\path\to\yourdb.mdb")
Bdd.Properties("AllowBypassKey") = True

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

 

[zevw]

I cannot thank you enough, you should be blessed in every way possible.

I was literally freaking out.

Thank You so much, and thanks for all your help of the past to.

 

[GooGoocluster]

Does any one know how to do this for an adp project?

I tried to use this code and it says it does not recognize the format on this line.

Set Bdd = DBEngine.Workspaces(0).OpenDatabase("\path\to\yourdb.mdb")