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


3 participantes

    [Resolvido]Ajuda com ESC

    avatar
    jou
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/07/2011

    [Resolvido]Ajuda com ESC Empty Ajuda com ESC

    Mensagem  jou 23/3/2012, 13:10

    Gente estou eu a precisar sempre da ajuda de vcs sozinho demora muito kkkkk brincadeira.

    preciso inibir em um formulário a tecla esc não pode funcionar.

    help
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  criquio 23/3/2012, 13:40

    Mas a tecla Esc, via de regra, não funciona mesmo, a não ser que tenha atribuído alguma ação à ela via VBA ou via Macro. Se for esse o caso, basta desabilitar essa atribuição.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5076
    Registrado : 20/04/2011

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  Silvio 23/3/2012, 13:51

    bom dia...com permissão...


    If KeyAscii = vbKeyEscape Then KeyAscii = 0


    no evento ao carregar seu formulário.

    Teste e retorne se deu certo para você.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    Convidad
    Convidado


    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  Convidad 23/3/2012, 13:53


    Mestre Criquio, permita um comentário:
    Ao menos nas versões 2003 e anteriores, o pressionamento simples da tecla Esc cancela a edição no campo, e o pressionamento duplo cancela a edição do registro.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  criquio 23/3/2012, 14:00

    Imaginei que o amigo estava se referindo à alguma ação no formulário em si.
    Eu gosto muito de desabilitar teclas em uma macro que podemos nomear como AutoExec. Todos os atalhos de teclado que quisermos desabilitar, podem ser desabilitados nela. Acho bem prático.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jou
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/07/2011

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  jou 23/3/2012, 19:57

    Colega silvio99 não deu vc compila o código e ela da como variável não definida keyascii.

    na verdade o que eu quero e exatamente o que o colega norbs estava explicando para o criquio.

    ela ta cancelando o registro mesmo e pegando o campo autonumerico sumindo com a sequencia preciso cortar isso


    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  criquio 23/3/2012, 20:03

    Crie uma macro e dê à ela o nome de AutoExec. Na coluna Nome da macro, coloque as combinações que quer cancelar. Por exemplo:

    {ESC}
    {F1}
    ^C
    ^V
    ^X


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jou
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/07/2011

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  jou 24/3/2012, 13:11

    Criquio não entendi nada x nada.

    toda macro tem um ação que ação eu colocaria no caso.
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  criquio 24/3/2012, 13:43

    Tente o seguinte no evento "Ao apertar tecla" do formulário ou dos campos:

    Código:
    If KeyCode = vbKeyEscape Then
        KeyCode = 0
    End If
    O evento "Visualizar teclas" do formulário precisa ser Sim.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    jou
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/07/2011

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  jou 24/3/2012, 19:43

    Colega Criquio da erro porque diz que variável keycode não esta definida e da erro, no caso tenho se declaro a variável ela não responde comando da tecla.

    Situação complicada a minha
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  criquio 24/3/2012, 19:54

    Tem que ver isso aí. alguma coisa está afetando o resultado. Office e Windows estão atualizados com todos os Service Packs?


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    avatar
    Convidad
    Convidado


    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  Convidad 24/3/2012, 20:00


    Colocou o código conforme o Criquio indicou?
    Pois suspeito que não colocou num evento.

    Cole o código no módulo do form e teste:


    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
    KeyCode = 0
    End If
    End Sub
    avatar
    jou
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 53
    Registrado : 21/07/2011

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  jou 24/3/2012, 20:05

    Obrigado Norbs e criquio finalmente funcionou grato.

    Valeu que DEUS te multiplique
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  criquio 24/3/2012, 20:13

    Grato pelo retorno. Só faltou clicar no botão Resolvido. Dessa vez, eu clico.


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.


    Conteúdo patrocinado


    [Resolvido]Ajuda com ESC Empty Re: [Resolvido]Ajuda com ESC

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 2/5/2024, 14:17