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]Perguntar se desejo salvar ao fechar formulário

    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]Perguntar se desejo salvar ao fechar formulário Empty [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  Krauss 11/5/2017, 05:10

    Bom dia!

    Já li alguns tópicos, mas nenhum é específico para minha dúvida.

    Seguinte... Meus formulários só fecham usando a tecla "Esc" com o código:

    If KeyAscii = 27 Then
    DoCmd.Close acForm, Me.Name
    End If

    Nenhum formulário possui o famoso botão "x".

    Gostaria de adaptar nesse código uma função onde, ao clicar Esc para fechar, o formulário me pergunte se desejo salvar as alterações feitas. Porém, gostaria que ele perguntasse somente quando houver alguma alteração, pois se a pessoa abrir e fechar sem alterar nada não é necessário a pergunta certo?

    Obrigado!


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

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

    dori gosta desta mensagem

    marcelo marques
    marcelo marques
    VIP
    VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 12/04/2016

    [Resolvido]Perguntar se desejo salvar ao fechar formulário Empty Re: [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  marcelo marques 11/5/2017, 15:08

    bom dia caro amigo tente assim:



    Private Sub Form_BeforeUpdate(Cancel As Integer)

    If KeyAscii = 27 Then


    Dim x As Integer
    If Me.Dirty Then
    x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
    If x = vbNo Then
    Me.Undo
    End If
    End If

    end if

    end sub
    código do nosso amigo jpaulo



    dori gosta desta mensagem

    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]Perguntar se desejo salvar ao fechar formulário Empty Re: [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  Krauss 11/5/2017, 22:39

    Boa noite Marcelo!

    Primeiramente obrigado pela ajuda...

    Então, ao apertar Esc não acontece nada rs


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

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 12/04/2016

    [Resolvido]Perguntar se desejo salvar ao fechar formulário Empty Re: [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  marcelo marques 11/5/2017, 23:40

    boa noite tenta assim agora


    Coloque no evento "Ao apertar tecla".
    Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)


    If KeyCode = 27Then
    Dim x As Integer
    If Me.Dirty Then
    x = MsgBox("Deseja salvar todas as alterações ?", vbYesNo)
    If x = vbNo Then
    Me.Undo
    End If
    End If
    end if


    va na Folha de propriedade na aba evento
    bem no final tem escrito VISUALIZAR TECLAS escolha a opção"SIM "
    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]Perguntar se desejo salvar ao fechar formulário Empty Re: [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  Krauss 12/5/2017, 23:08

    Então Marcelo... ao abrir o form e apertar Esc sem fazer nenhuma alteração, não acontece nada, porém, se eu fizer qualquer alteração e apertar Esc em seguida, ele desfaz tudo que fiz e não fecha o form.

    A msgbox tb não está sendo exibida.

    --------------------------------------------------

    Resumindo, eu preciso que, ao apertar a tecla Esc no formulário:

    1) Se houver qualquer alteração feita, ele deve exibir uma mensagem perguntando se desejo salvá-la(s), antes de fechar o formulário;
    2) Se não houver nenhuma alteração, ele simplesmente fecha o formulário.


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

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 12/04/2016

    [Resolvido]Perguntar se desejo salvar ao fechar formulário Empty Re: [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  marcelo marques 13/5/2017, 03:30

    boa noite Krauss veja este exemplo no formulário frm_produto
    o código esta no botão fechar e chamei ele no evento ao pressionar tecla


    abraç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]Perguntar se desejo salvar ao fechar formulário Empty Re: [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  Krauss 13/5/2017, 07:55

    Marcelo, peguei o código, adaptei e joguei direto no evento "Ao apertar tecla", assim posso descartar o tradicional "Botão Fechar".

    Eis o código de acordo com minha necessidade:

    If KeyCode = 27 Then
    If 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
    End If
    DoCmd.Close
    End If

    Sendo assim, ao apertar a tecla Esc:

    1) Se houver alteração, o sistema pergunta se desejo salvar;
    1a) Se clicar em "Sim", o sistema salva as alterações e fecha o form;
    1b) Se clicar em "Não", o sistema desfaz as alterações e fecha o form.

    2) Não havendo nenhum alteração, o form simples se fecha sem perguntar.

    Muito obrigado ela ajuda! Foi de grande serventia.


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

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1003
    Registrado : 12/04/2016

    [Resolvido]Perguntar se desejo salvar ao fechar formulário Empty Re: [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  marcelo marques 13/5/2017, 11:20

    bom dia Krauss e obrigado pelo retorno

    abraço

    Conteúdo patrocinado


    [Resolvido]Perguntar se desejo salvar ao fechar formulário Empty Re: [Resolvido]Perguntar se desejo salvar ao fechar formulário

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/11/2024, 03:20