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 III. Comprobación del estado de la tecla Shift.
**********************************************************
Public Function ComprobarShift()
On Error GoTo errComprobarShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
If db.Properties("AllowByPassKey") = True Then
ComprobarShift = True
Else
ComprobarShift = False
End If
Exit Function
errComprobarShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", dbBoolean, True)
db.Properties.Append prop
ComprobarShift = True
Resume Next
Else
MsgBox "La función 'ap_DisableShift' no se completó satisfactoriamente."
Exit Function
End If
End Function
**********************************************************
