Acces

[Hombrexitoso]

Hola

Necesito evitar que el usuario entre con la tecla shift presionada

Me pueden ayudar??

Gracias

[Taribo007]

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

[Hombrexitoso]

Taribo:

Gracias!!

Voy a probar y te cuento!!

[Hombrexitoso]

Toribo

No sé en qué parte del Archivo Acces debo poner este código para que se active o quede activado.

La idea es que se active o desactive con password de administrador!!

Gracias