Aqui tienes las dos funciones para habilitar y desahabilitar la tecla shift:
************************************************** **********
Option Compare Database
Option Explicit
Function ap_DisableShift()
On Error GoTo errDisableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties("AllowByPassKey") = False
Exit Function
errDisableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, False)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If
End Function
'================================================= ===========
Function ap_EnableShift()
On Error GoTo errEnableShift
Dim db As Database
Dim prop As Property
Const conPropNotFound = 3270
Set db = CurrentDb()
db.Properties("AllowByPassKey") = True
Exit Function
errEnableShift:
If Err = conPropNotFound Then
Set prop = db.CreateProperty("AllowByPassKey", _
dbBoolean, True)
db.Properties.Append prop
Resume Next
Else
MsgBox Err.Number & " / " & Err.Description, vbInformation + vbOKOnly, "A V I S O"
Exit Function
End If
End Function
***************************************+
y aqui un ejemplo:
ejemplo
Un saludo