MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]Desativar tecla

    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1549
    Registrado : 18/07/2010

    [Resolvido]Desativar tecla Empty [Resolvido]Desativar tecla

    Mensagem  Agravina em Sab 06 Jun 2020, 3:01 pm

    Quero desativar a tecla Num Lock, para o que o não seja desligada
    estou tentando da seguinte forma

    If KeyCode = 144 Then
    MsgBox "A tecla NUM LOCK,não pode ser desativada! ", vbExclamation, "Erro Sistema!"
    KeyCode = 0

    End If
    End Sub
    mas não deu certo ,não posso desativar o visualizar teclas do formulário,pois ele é necessário
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 21/11/2016

    [Resolvido]Desativar tecla Empty Re: [Resolvido]Desativar tecla

    Mensagem  DamascenoJr. em Sab 06 Jun 2020, 4:25 pm

    Qual a finalidade de não permitir a desativação?

    Dependendo da sua resposta, talvez seja necessário seguir com outra ideia, pois nada impede o usuário de mudar o foco para outra janela de um programa qualquer, desativar a tecla NumLock e voltar ao seu programa.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1549
    Registrado : 18/07/2010

    [Resolvido]Desativar tecla Empty Re: [Resolvido]Desativar tecla

    Mensagem  Agravina em Sab 06 Jun 2020, 4:38 pm

    Sistema de vendas trabalha com campo Código barras , e se o usuário desativar a Num Lock ,poderá gerar erro
    Então gostaria que não fosse possível o usuário desativa-la.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2097
    Registrado : 21/11/2016

    [Resolvido]Desativar tecla Empty Re: [Resolvido]Desativar tecla

    Mensagem  DamascenoJr. em Sab 06 Jun 2020, 6:40 pm

    Cole isso em um módulo global

    Código:
    #If VBA7 Then
       public Declare PtrSafe Function GetKeyState Lib "user32"(ByVal nVirtKey As Long) As Long
    #Else
       Public Declare Function GetKeyState Lib "user32" (ByVal nVirtKey As Long) As Long
    #End If

    E use o código abaixo no evento "ao apertar tecla" do formulário
    Código:
    If GetKeyState(vbKeyNumlock) = 0 Then Call CreateObject("WScript.shell").SendKeys("{NumLock}")

    També tem a possibilidade de usar a técnica da mensagem abaixo
    https://www.maximoaccess.com/t237-como-bloquear-teclas-ctrlc-altprtsc-shift-etc#1291


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    Agravina
    Agravina
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1549
    Registrado : 18/07/2010

    [Resolvido]Desativar tecla Empty Re: [Resolvido]Desativar tecla

    Mensagem  Agravina em Sab 06 Jun 2020, 7:51 pm

    ótimo se ela for desativa vou a ser ativada e isso?
    Muito bom obrigado.

      Data/hora atual: Dom 05 Jul 2020, 3:37 pm