bloquear a recla shift

   alguem pode me mostar o passo a passo de como bloquear a tecla Shift ?
Fiz minha pesquisa, fiz um passo a passo, e continua sem funcionar.
J.á crei um módulo

Option Compare Database 'Esta é a função para liberar ou Shift Sub EnablesShift() Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, True End Sub 'Isso é para Travar Sub BlockShift() Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey ", DB_Boolean, False End Sub Function ChangeProperty (strPropName As String, varPropType As Variant, varPropValue As Variant) Como Inteiro Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb Em caso de erro GoTo Change_Err dbs.Properties (strPropName) = varPropValue ChangeProperty = True Change_Bye: Função de saída Change_Err: If Err = conPropNotFoundError Then ' Propriedade não encontrada. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Erro desconhecido. ChangeProperty = False Resume Change_Bye End If End Function

Crie também um formulário com 2 teclas Liberar e Travar , defini o procedimento do evento e nada está funcionando, 
Private Sub Btliberar_Click()

   HabilitaShift

End Sub

Private Sub BtTravar_Click()

   BloqueiaShift

End Sub

alguém pode me dizer o problema ????
alguma pulo do Gato ?????

Autor	Mensaje Tema Buscar Opciones del Tema Responder Crear un nuevo tema Versión imprimible Traducir Tema
mcahet Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Añadir a la lista de amigos Nuevo Unido: 15/Julio/2024 Localización: Brasil Estado: Sin conexión Puntos: 2	Opciones de entrada Responder Cita mcahet Informar de mensaje Gracias(0) Cita Respuesta Tema: bloquear a recla shift Enviado: 15/Julio/2024 a las 18:00
	alguem pode me mostar o passo a passo de como bloquear a tecla Shift ? Fiz minha pesquisa, fiz um passo a passo, e continua sem funcionar. J.á crei um módulo Option Compare Database 'Esta é a função para liberar ou Shift Sub EnablesShift() Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey", DB_Boolean, True End Sub 'Isso é para Travar Sub BlockShift() Const DB_Boolean As Long = 1 ChangeProperty "AllowBypassKey ", DB_Boolean, False End Sub Function ChangeProperty (strPropName As String, varPropType As Variant, varPropValue As Variant) Como Inteiro Dim dbs As Object, prp As Variant Const conPropNotFoundError = 3270 Set dbs = CurrentDb Em caso de erro GoTo Change_Err dbs.Properties (strPropName) = varPropValue ChangeProperty = True Change_Bye: Função de saída Change_Err: If Err = conPropNotFoundError Then ' Propriedade não encontrada. Set prp = dbs.CreateProperty(strPropName, _ varPropType, varPropValue) dbs.Properties.Append prp Resume Next Else ' Erro desconhecido. ChangeProperty = False Resume Change_Bye End If End Function Crie também um formulário com 2 teclas Liberar e Travar , defini o procedimento do evento e nada está funcionando, Private Sub Btliberar_Click() HabilitaShift End Sub Private Sub BtTravar_Click() BloqueiaShift End Sub alguém pode me dizer o problema ???? alguma pulo do Gato ?????

Mihura Ver perfil usuario Enviar mensaje privado Ver los mensajes del usuario Visite la página de los usuarios Añadir a la lista de amigos Administrador Unido: 06/Mayo/2005 Localización: En la dehesa Estado: Sin conexión Puntos: 14428	Opciones de entrada Responder Cita Mihura Informar de mensaje Gracias(0) Cita Respuesta Enviado: 15/Julio/2024 a las 18:12
	Hola mcahet, En el foro offline está seguro, la función QuitaShift. También puedes acceder a la misma aquí: http://www.mvp-access.es/buho/foro.htm En la casilla buscar en la web pon QUITASHIFT.
	Jesús Mansilla Castells. Saludos desde Móstoles. Access Aplicaciones Tecsys.es