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 : 1552
    Registrado : 18/07/2010

    [Resolvido]Desativar tecla Empty [Resolvido]Desativar tecla

    Mensagem  Agravina em 6/6/2020, 19:01

    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 : 2180
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 6/6/2020, 20:25

    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 : 1552
    Registrado : 18/07/2010

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

    Mensagem  Agravina em 6/6/2020, 20:38

    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 : 2180
    Registrado : 22/11/2016

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

    Mensagem  DamascenoJr. em 6/6/2020, 22:40

    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 : 1552
    Registrado : 18/07/2010

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

    Mensagem  Agravina em 6/6/2020, 23:51

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

      Data/hora atual: 21/9/2020, 18:40