MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


4 participantes

    [Resolvido]Desabilitar Control+Vírgula

    eullerTec
    eullerTec
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 06/09/2016

    [Resolvido]Desabilitar Control+Vírgula Empty [Resolvido]Desabilitar Control+Vírgula

    Mensagem  eullerTec 18/4/2017, 23:49

    Saudações sábios Mestres!
    Estou com Bd em uso já na empresa que trabalho para marcação de consultas, deste então tá rodando até direitinho, mas mexendo em algumas funções para ajustes percebi que quando pressionamos a tecla (Ctrl+,) Control+Vírgula, ele entra em modo design no Formulário que o usuário esteja. E isso acaba ficando vulnerável para mexerem onde o usuário não deve.
    Alguém poderia me ajudar a resolver?
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Desabilitar Control+Vírgula Empty Re: [Resolvido]Desabilitar Control+Vírgula

    Mensagem  JPaulo 19/4/2017, 11:32

    Olá;

    Essa é uma combinação de teclas que muita pouca gente sabe, provavelmente o user final fez sem querer e descobriu;

    Pode tratar isso assim, no formulario;

    Código:
    Private Sub Form_Load()
        Me.KeyPreview = True
    End Sub

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
     If (Shift And acCtrlMask) > 0 And KeyCode = 188 Then
            MsgBox "Combinação de teclas bloqueadas!", vbCritical
            KeyCode = 0
        End If
    End Sub


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Desabilitar Control+Vírgula Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Desabilitar Control+Vírgula Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Desabilitar Control+Vírgula Folder_announce_new Instruções SQL como utilizar...
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Desabilitar Control+Vírgula Empty Re: [Resolvido]Desabilitar Control+Vírgula

    Mensagem  Alvaro Teixeira 19/4/2017, 12:00

    Olá a todos,
    JPaulo, com o MaximoAccess é sempre aprender.
    Boa técnica para colocar no formulário todo.
    cheers
    CassioFabre
    CassioFabre
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 731
    Registrado : 18/01/2013

    [Resolvido]Desabilitar Control+Vírgula Empty Re: [Resolvido]Desabilitar Control+Vírgula

    Mensagem  CassioFabre 19/4/2017, 19:27

    Boa tarde,

    Além do excelente exemplo do grande JPaulo acima, deixo aqui também um modelo que coloquei no repositório que faz o bloqueio de teclas a nível de usuário. Pode ser interessante dar uma olhada também.

    https://www.maximoaccess.com/t28233-bloquear-teclas-via-funcao#197583

    Abraço.
    eullerTec
    eullerTec
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 56
    Registrado : 06/09/2016

    [Resolvido]Desabilitar Control+Vírgula Empty Desabilitar Control+Vírgula

    Mensagem  eullerTec 19/4/2017, 20:03

    Grande JPaulo, com sempre com boas respotas, muito obrigado tbm , CassioFabre, AhTeixeira também, já testei aqui numa cópia do meu Bd, realmente deu certo. Pois é teve uma user final que sem querer entrou em modo design mesmo com a tecla f12, e shift bloqueada, aí fique encucado com isso , daí saí testando eu mesmo como ela tinha conseguido , e vi que era o comando control+ vírgula. Muito obrigado a todos, esse Fórum é pra mim o melhor pra quem programa em Access e Vba, muito enriquecedor, que Deus abençoe todos por compartilhar seus conhecimentos, já vou aplicar esse bloqueio ao meu Banco aqui, protege-lo é sempre bom, mesmo que o user final não tenha intenção de avacalhar meu banco, mas possa ser que involuntariamente, sem querer acabe corrompendo o BD, isso não é bom.

    Muito obrigado mais uma vez!
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7996
    Registrado : 15/03/2013

    [Resolvido]Desabilitar Control+Vírgula Empty Re: [Resolvido]Desabilitar Control+Vírgula

    Mensagem  Alvaro Teixeira 21/4/2017, 12:31

    Olá a todos,
    Euller Souza, obrigado pelo retorno o fórum agradece.
    cheers

    Conteúdo patrocinado


    [Resolvido]Desabilitar Control+Vírgula Empty Re: [Resolvido]Desabilitar Control+Vírgula

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 22/11/2024, 06:51