Este bloqueo de la tecla Shift está pensado con la finalidad de evitar modificaciones en la estructura de tablas, consultas, formularios, etc. impidiendo el acceso a la base de datos en modo diseño.
Parte I. Bloqueo de Shift.
**********************************************************
Function ap_DisableShift()
On Error GoTo errDisableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
If MsgBox("Está a punto de deshabilitar el uso de SHIFT en el acceso a esta aplicación. Pulse ACEPTAR para proseguir.", vbExclamation + vbOKCancel, "Bloqueo de Shift") = vbCancel Then
Exit Function
Else
Set db = CurrentDb()
db.Properties("AllowByPassKey") = False
End If
'function successful
Exit Function
errDisableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox "La función 'ap_DisableShift' no se completó satisfactoriamente."
Exit Function
End If
End Function
**********************************************************
