Access - urgente; yo que esto lo han

preguntado, necesito el codigo o algun ejemplo para que no se ejecute al presionar la tecla SHFT. alguien tiene algun codigo que me pueda indicar..muchas gracias

Hola - create modulo quita shift
---------------
Function ap_QuitaShift(Archivo 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(Archivo)

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
----------
Saludos

que me tome esta funcion , lo tengo que hacer en algun formulario o autoexec..

por favor....

Hola - create modulo quita shift
---------------
Function ap_QuitaShift(Archivo 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(Archivo)

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
----------
Saludos

Hola - create modulo quita shift
---------------
Function ap_QuitaShift(Archivo 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(Archivo)

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
----------
Saludos