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]Bloquear teclas F5 e Esc em tempo de execução

    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 12/04/2011

    [Resolvido]Bloquear teclas F5 e Esc em tempo de execução Empty [Resolvido]Bloquear teclas F5 e Esc em tempo de execução

    Mensagem  MMS em Seg 23 Mar 2020, 8:10 pm

    Boa noite, preciso bloquear as teclas f5 e Esc ao abrir um formulário e somente para o formulário em execução e não para todo o BD. Sei que com macro AutoExec é possível , porém bloqueia todo o banco e essas funções são úteis em outras partes do sistema, portanto preciso bloquea-las apenas para um Form específico em tempo de execução.. É possível ?

    Grato,

    Marcelo
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Bloquear teclas F5 e Esc em tempo de execução Empty Re: [Resolvido]Bloquear teclas F5 e Esc em tempo de execução

    Mensagem  DamascenoJr. em Seg 23 Mar 2020, 10:15 pm

    Nas propriedades do formulário habilite a visualização de teclas e no evento "ao pressionar tecla" do formulário então bote isso
    Código:
    Select Case KeyAscii: Case vbKeyEscape, vbKeyF5: KeyAscii = 0: End Select


    .................................................................................
    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.
    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 12/04/2011

    [Resolvido]Bloquear teclas F5 e Esc em tempo de execução Empty Bloquear teclas F5 e Esc em tempo de execução

    Mensagem  MMS em Ter 24 Mar 2020, 10:34 am

    bom dia! Obrigado pela dica, mas infelizmente não funcionou. Ambas teclas ainda continuam ativas. Colei o código no evento ao pressionar tecla e ativei a vizualização de teclas, mas não funcionou. Alguma dica?
    cleverson_manaus
    cleverson_manaus
    VIP
    VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1002
    Registrado : 23/09/2011

    [Resolvido]Bloquear teclas F5 e Esc em tempo de execução Empty Re: [Resolvido]Bloquear teclas F5 e Esc em tempo de execução

    Mensagem  cleverson_manaus em Ter 24 Mar 2020, 11:52 am


    Bom dia,


    utilizo essa rotina no evento ao apertar tecla do formulário praticamente para qualquer tecla:


    Código:
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    On Error GoTo TrataErros

    Select Case KeyCode
                     
       
        Case vbKeyF5
           
                KeyCode = 0 
     
        Case vbKeyEscape
           
                KeyCode = 0

        Case Else
       
       
    End Select

    Saida:

    Exit Sub

    TrataErros:

        MsgBox " " & Err.Description & ".", vbExclamation, "Erro Sistema!"
        Exit Sub

    Resume Saida


    End Sub



    .................................................................................
    afro

    "É fazendo que se aprende a fazer aquilo que se deve aprender a fazer."(Aristóteles)
    - Dúvida resolvida!!! Marcar o tópico como resolvido!!!
    avatar
    MMS
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 111
    Registrado : 12/04/2011

    [Resolvido]Bloquear teclas F5 e Esc em tempo de execução Empty Bloquear teclas F5 e Esc em tempo de execução

    Mensagem  MMS em Ter 24 Mar 2020, 1:49 pm

    Perfeito! Funcionou, obrigado. Meio parecido com a dica do Damasceno, mas dessa forma no evento ao apertar funcionou. Obrigado a todos.
    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador

    Respeito às Regras 100%

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

    [Resolvido]Bloquear teclas F5 e Esc em tempo de execução Empty Re: [Resolvido]Bloquear teclas F5 e Esc em tempo de execução

    Mensagem  DamascenoJr. em Ter 24 Mar 2020, 6:36 pm

    lol!


    .................................................................................
    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.

      Data/hora atual: Sab 19 Set 2020, 8:42 am