Activar/desactivar la tecla shift

La siguiente función activa  o desactiva la tecla shift al iniciar una aplicación. Para ello se le pasa la ruta del archivo sobre el que se actúa (T),  el valor para activarla o desactivarla (Activar – true o false):

Function ap_QuitaShift(T As String, Activar As Boolean) As Boolean
On Error GoTo errQuitaShift
Dim db As Database, wks As Workspace
Dim prop As Property
Const conPropNotFound = 3270
Set wks = Workspaces(0)
Set db = wks.OpenDatabase(T)
db.Properties(”AllowByPassKey”) = Activar
db.Close
Set db = Nothing
Exit Function
errQuitaShift:
Set prop = db.CreateProperty(”AllowByPassKey”, dbBoolean, False)
db.Properties.Append prop
Resume Next
End Function

Esta función nos informa sobre el estado de la propiedad Shift de la base de datos que se le pasa (T), devolviendo true o false según corresponda:

Public Function ShiftActivado(T As String) As Boolean
On Error GoTo ShiftActivado_err
Dim db As Database, wks As Workspace
Dim prop As Property
Const conPropNotFound = 3270
Set wks = Workspaces(0)
Set db = wks.OpenDatabase(T)
ShiftActivado = db.Properties(”AllowByPassKey”)
sal_de_ShiftActivado:
Exit Function
ShiftActivado_err:
ShiftActivado = True
Resume sal_de_ShiftActivado
End Function

Fuente: DelucchiMDB