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]ESC sai do form

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 06/11/2020

    [Resolvido]ESC sai do form Empty [Resolvido]ESC sai do form

    Mensagem  m_sousa em 13/1/2021, 16:27

    Olá

    Preciso de uma ajuda aqui na App !

    Tenho o seguinte código - campo obrigatório

    Código:
    If IsNull(Me.ActiveControl) Then
    MsgBox "Campo Obrigatório"
    DoCmd.CancelEvent
    End If

    Pretendia que ao fazer ESC no campo fecha-se o form sem gravar . . .

    Obrigado

    Um bem hajam !
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ESC sai do form Empty Re: [Resolvido]ESC sai do form

    Mensagem  Silvio em 13/1/2021, 18:23

    o sistema de busca aqui, tem muitos exemplos para isso, mas aqui vai uma deixa.

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

    If KeyCode = vbKeyEscape Then
    KeyCode = 0
    DoCmd.Close acForm, Me.Name
    End If

    End Sub

    Obs...Tem de ter o Visualizar Tecla = Sim, nas propriedades do formulário.


    .................................................................................
    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."
    crysostomo
    crysostomo
    VIP
    VIP

    Respeito às Regras 50%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1495
    Registrado : 23/01/2018

    [Resolvido]ESC sai do form Empty Re: [Resolvido]ESC sai do form

    Mensagem  crysostomo em 13/1/2021, 18:30

    faltou colocar o comando  Me.Undo. dependendo de como vai ser o seu evento o o undo tem que esta presente
    If KeyCode = vbKeyEscape Then
       KeyCode = 0
      Me.Undo
      DoCmd.Close acForm, Me.Name
    End If

    End Sub


    .................................................................................
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ESC sai do form Empty Re: [Resolvido]ESC sai do form

    Mensagem  Silvio em 13/1/2021, 18:52

    Valeu faltou mesmo, fazer no joelho e com pressa é nisso que dá !

    Grato, pela inclusão !!!


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

    crysostomo gosta desta mensagem

    avatar
    m_sousa
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 06/11/2020

    [Resolvido]ESC sai do form Empty Re: [Resolvido]ESC sai do form

    Mensagem  m_sousa em 14/1/2021, 09:37

    Olá Amigos, antes de mais obrigado.

    Só que não funciona !

    Código:
    Option Compare Database

    Private Sub Hora_Data_Exit(Cancel As Integer)
    If IsNull(Me.ActiveControl) Then
    MsgBox "Campo Obrigatório"
    DoCmd.CancelEvent
    End If
    End Sub

    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
    If KeyCode = vbKeyEscape Then
    KeyCode = 0
    Me.Undo
    DoCmd.Close acForm, Me.Name
    End If
    End Sub

    Ao fazer ESC no sai do campo nem fecha o form...

    Deixo exemplo da APP (parte), form frmObrigatorio.

    Obrigado
    Anexos
    [Resolvido]ESC sai do form AttachmentbtnLANCA.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (121 Kb) Baixado 2 vez(es)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ESC sai do form Empty Re: [Resolvido]ESC sai do form

    Mensagem  Silvio em 14/1/2021, 11:02

    boas..

    faltou isso nas propriedades do teu formulário:

    Obs...Tem de ter o Visualizar Tecla = Sim, nas propriedades do formulário.


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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 104
    Registrado : 06/11/2020

    [Resolvido]ESC sai do form Empty Re: [Resolvido]ESC sai do form

    Mensagem  m_sousa em 14/1/2021, 12:08

    Obrigado amigo Sílvio , abraço !
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]ESC sai do form Empty Re: [Resolvido]ESC sai do form

    Mensagem  Silvio em 14/1/2021, 12:22

    O fórum agradece o retorno.


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

      Data/hora atual: 18/1/2021, 18:57