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

5 participantes

    Deseja realmente sair? Sim ou Não

    avatar
    rafaelmv2013
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1
    Registrado : 22/07/2013

    Deseja realmente sair? Sim ou Não Empty Deseja realmente sair? Sim ou Não

    Mensagem  rafaelmv2013 23/7/2013, 19:17

    Olá amigos ! to quebrando a cabeça ao criar uma macro que barra qualquer a ação de fechar o formulário para aparecer uma janelinha que me pergunte e me dê duas opções  SIM ou NÃO ,  SIM = FECHAR FORMULÁRIO   e NÃO= RETORNA AO FORMULÁRIO

    QUEM ME AJUDAR .. EU PAGO UM SORVETE ! rs


    Deseja realmente sair? Sim ou Não Image001
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2112
    Registrado : 13/04/2012

    Deseja realmente sair? Sim ou Não Empty Re: Deseja realmente sair? Sim ou Não

    Mensagem  Fernando Bueno 23/7/2013, 19:46

    Boa tarde Rafael.

    Uso vba, ve se interessa.

    Deixe o form com o botão fechar desabilitado e crie um botão de comando.

    No evento ao Clicar coloque.

    Dim X As Integer
    X = MsgBox("deseja fechar o formulário?", 20, "Confirmar Saída")
    If X = 6 Then
    DoCmd.Close
    End If


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Deseja realmente sair? Sim ou Não 16rzeq
    Fernando Bueno
    Fernando Bueno
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2112
    Registrado : 13/04/2012

    Deseja realmente sair? Sim ou Não Empty Re: Deseja realmente sair? Sim ou Não

    Mensagem  Fernando Bueno 23/7/2013, 19:47

    A proposito esqueci de dizer,

    Seja bem vindo ao Forúm.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    Deseja realmente sair? Sim ou Não 16rzeq
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3490
    Registrado : 21/04/2011

    Deseja realmente sair? Sim ou Não Empty Re: Deseja realmente sair? Sim ou Não

    Mensagem  Marcelo David 23/7/2013, 20:05

    Rafael, recomendo que leia com atenção as regras do fórum antes de postar!

    REGRAS DO FÓRUM

    1. Tenha paciência com quem coloca aqui as suas duvidas.
    2. Clareza nos títulos dos tópicos e duvidas, evite a linguagem MSN.
    3. Não colocar diversas vezes a mesma dúvida.
    4. Explicar detalhadamente o problema e informar a versão do seu Office + Sistema Operativo.
    5. Retorne sempre se deu certo, esse retorno é muito importante.
    6. Respeite toda a equipe Staff e demais membros deste fórum.
    7. Use sempre o botão Busca, sempre que tiver uma dúvida e antes de abrir tópicos.
    8. Não usar palavras como "Urgente". O fórum é livre e ninguém é obrigado a responder com urgência.
    9. A publicidade é proíbida e só pode ser feita pelo Administrador ou depois de aprovada pelo Administrador.
    10. Se o seu tópico não for respondido, tem o direito de fazer um Up ao final de 24horas!
    11. A colocação de Códigos ou Exemplos, devem constar sempre os créditos de quem o elaborou.
    12. Fale, não GRITE! Só letras Maiúsculas, na Internet é o mesmo que gritar!
    13. É proibido tirar duvidas nas Salas de Repositório, devem abrir um novo tópico nas salas de duvidas, relacionando o Exemplo em causa.

    Por favor, corrija seu título!


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Clique aqui e conheça o treinamento.
    Deseja realmente sair? Sim ou Não Marcel11
    avatar
    giba_
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 123
    Registrado : 01/02/2011

    Deseja realmente sair? Sim ou Não Empty Re: Deseja realmente sair? Sim ou Não

    Mensagem  giba_ 29/9/2013, 00:54

    utilizo essa!

    Private Sub btnSair_Click()
    On Error GoTo Err_btnSair_Click

    If MsgBox("Deseja encerrar o aplicativo?", vbQuestion + vbYesNo, "Sair") = vbYes Then
    DoCmd.Quit
    Else
    Me.txtMatricula.SetFocus
    End If
    Exit_btnSair_Click:
    Exit Sub

    Err_btnSair_Click:
    MsgBox Err.Description
    Resume Exit_btnSair_Click

    End Sub
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3744
    Registrado : 04/04/2010

    Deseja realmente sair? Sim ou Não Empty Re: Deseja realmente sair? Sim ou Não

    Mensagem  Avelino Sampaio 29/9/2013, 08:38

    Olá!

    Melhor utilizar o evento "Ao descarregar" do formulário que assim é também interceptado a combinação de teclas, que fecha o formulário.


    Private Sub Form_Unload(Cancel As Integer)
      If MsgBox("Deseja encerrar o aplicativo?", vbQuestion + vbYesNo, "Confirmação") = vbNo Then cancel = true
    End Sub


    Veja na imagem como montar a macro no evento "ao descarregar"

    Deseja realmente sair? Sim ou Não MacroDescarregar

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.

      Data/hora atual: 26/1/2022, 23:57