Disable Shift Code (help)

[learning_codes]

Hi,

I'm sorry and need your help with code.

I'm trying to figure it out. After reading the information from the
group, I was not successful to block shift without opening the database
tables.

After finishing finalize the database (.mdb) and convert to the
database (.mde), I was able to open the database windows tables to hold
the shift and double click on the database (.mde). I'm looking for
permanent block on MDE database.

I did unchecked boxes from startup completely. I still open the
database by using "hold shift and double click on the MDE database".

Your help would be much appreciated.

Thanks

 

[Warmy]

You need to write some code to disable the shift key upon startup. Here it is:
Dim db As DAO.Database
Dim myProp As Property

Set myProp = db.CreateProperty("AllowBypassKey", dbBoolean, False)
db.Properties.Append myProp
db.Properties("AllowBypassKey").Value = False

Hope this is what your looking for.

--Craig

 

[Albert D. Kallal]

create your mde, and then download my sample here:

http://www.members.shaw.ca/AlbertKallal/msaccess/msaccess.html
(shift key bypass example).

when you launch my sample, you can then "browse" to that mde file that YOU
made, and it will allow you to turn on, or off the shift key setting.