Enabling shift key in MsAccess ?
By : Saif Ikram
Published on : 23-January-2008
Microsoft Office Access, previously known as Microsoft Access, is a relational database management system from Microsoft which combines the relational Microsoft Jet Database Engine with a graphical user interface and software development tools. It is a member of the 2007 Microsoft Office system.
Access can use data stored in Access/Jet, Microsoft SQL Server, Oracle, or any ODBC-compliant data container. Skilled software developers and data architects use it to develop application software. Relatively unskilled programmers and non-programmer "power users" can use it to build simple applications. It supports some object-oriented techniques but falls short of being a fully object-oriented development tool.
Applications developed Ms-access are secure in some aspects when the shift key is disabled.
But once disabled cannot be recovered, which means developer cannot access the source code or cannot make any changes.
To avoid this, application should itself provide an option to enable the shift key at least for an administrator.
The following code snippet helps you to enable/disable shift
Sub EnableShiftKey()
Dim db As DAO.Database
Dim prp As DAO.Property
Set db = CurrentDb
db.Properties.Delete "AllowBypassKey"
Set prp = db.CreateProperty("AllowBypassKey", dbBoolean, True, True)
db.Properties.Append prp
db.Properties.Refresh
Set prp = Nothing
Set db = Nothing
End Sub
Just change the value from True to False to disable shift button
