Disable Shift Code (help)

  • Thread starter Thread starter learning_codes
  • Start date Start date
L

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
 
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
 
Back
Top