Set ByPassProperty

[Guest]

I have some code to set the Allow ByPass Keys to False (opening database from explorer with shift key held down will not open the database window)
However this code then prevents all other modules / event procedures / vba programs responding, with the error message "Error accessing file. Network connection may have been lost" or no message but events not occurring
How can I disable bypass keys, but maintain functions

 

[Craig]

First you need to create the AllowByPass property for the
database:
Dim myProp As Property
Set myProp = db.CreateProperty("AllowBypassKey",
dbBoolean, False)
db.Properties.Append myProp
Then if you need to set it to either true or false for
which ever you need.
db.Properties("AllowBypassKey").Value = False or True

--Craig

-----Original Message-----
I have some code to set the Allow ByPass Keys to False

(opening database from explorer with shift key held down
will not open the database window).

However this code then prevents all other modules / event

procedures / vba programs responding, with the error
message "Error accessing file. Network connection may have
been lost" or no message but events not occurring.