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 IV. Ejecución de código para bloquear/desbloquear la tecla Shift.
Tras hacer clic en el lugar establecido por el programador (botón, fondo de formulario, etiqueta oculta, etc.) se ejecutará el siguiente código, que no hace más que comprobar el estado de la tecla Shift. Si está bloqueada porque se haya realizado esta orden con aterioridad, ejecutará el desbloqueo (ap_EnableShift), y en caso contrario ejecutará el bloqueo (ap_DisableShift).
**********************************************************
If ComprobarShift = True Then
'Me.Cmd_Shift.Caption = "Habilitar Shift"
ap_DisableShift
Else
'Me.Cmd_Shift.Caption = "Deshabilitar Shift"
ap_EnableShift
End If
**********************************************************
