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

2 participantes

    [Resolvido]Evitar que 'Esc' desfaça a digitação

    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 23/12/2011

    [Resolvido]Evitar que 'Esc' desfaça a digitação Empty [Resolvido]Evitar que 'Esc' desfaça a digitação

    Mensagem  Krauss 19/12/2020, 22:02

    Boa noite!

    Como evitar que a tecla "Esc" desfaça a digitação?

    Por padrão, conforme código abaixo, uso a tecla 'Esc' para fechar meus formulários, porém quando estou no meio de um novo cadastro, ao apertá-lo ele desfaz toda digitação. Tem como ajustar esse código para que o 'Esc" tenha somente a função que eu determinar para ele? No caso somente executar somente o que estiver determinado no código abaixo?

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

      If KeyCode = 27 Then
          If IsNull(Me.dataCadastro) Then
            KeyCode = vbKeyEscape
            MsgBox "É necessário concluir ou cancelar o cadastro antes de sair..", vbExclamation, "Aviso"
          Exit Sub
         
          ElseIf Me.Dirty Then
            If MsgBox("Deseja salvar as alterações?", vbQuestion + vbYesNo, " Confirmação") = vbNo Then
                Me.Undo
                DoCmd.Close
            Else
                DoCmd.Save
                DoCmd.Close
            End If
          Exit Sub
     
      End If
          DoCmd.Close
      End If

    End Sub


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"
    formiga10x
    formiga10x
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 799
    Registrado : 11/09/2013

    [Resolvido]Evitar que 'Esc' desfaça a digitação Empty Re: [Resolvido]Evitar que 'Esc' desfaça a digitação

    Mensagem  formiga10x 20/12/2020, 00:16

    Uma jogada rápida:

    Código:

    if keycode = vbKeyEscape then
        if len(txt_nome)>0 then
            keycode = 0
        else
            keycode = vbKeyEscape
        end if
    end if

    veja se


    Última edição por formiga10x em 20/12/2020, 10:16, editado 1 vez(es)


    .................................................................................
    Abraço
    Formiga10x

    Sempre que possível poste o bd ou parte dele, com uma explicação bem clara e objetiva do que quer.
    “Um homem não está acabado quando enfrenta a derrota. Ele está acabado quando desiste - Richard Nixon”
    Formiga10x

    "Lembro do exato momento em que me dei conta que boa parte de minha vida foi dedicada a localizar erros em meus próprios programas."
    - Maurice Vicent Wilkes
    Krauss
    Krauss
    Avançado
    Avançado

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 254
    Registrado : 23/12/2011

    [Resolvido]Evitar que 'Esc' desfaça a digitação Empty Re: [Resolvido]Evitar que 'Esc' desfaça a digitação

    Mensagem  Krauss 20/12/2020, 02:22

    Boa noite formiga!

    Rápida e certeira amigo, deu certinho aqui, obrigado!


    .................................................................................
    Trabalho com Access 2013

    "A dúvida é o princípio da sabedoria"

      Data/hora atual: 21/9/2021, 02:39