Permitir fechar o Access apenas por botões específicos
Nota importante: para ter acesso aos vídeos e arquivos exemplos deste site, adquira um dos planos apresentados abaixo. Você pode comprar em até 5x no Cartão de Crédito.
Veja como comprar e saiba mais sobre o material oferecido, clicando aqui.
Para impedir o fechamento do Access pelo botão fechar (canto superior direito), pela combinação de teclas ALT+F4 ou pela Ribbon é necessário que um formulário de controle se mantenha aberto (podendo ficar oculto).
Veja o código utilizado no evento "Ao descarregar" deste formulário de controle, que impede a saída do Access sem a devida autorização.
Faça o login aqui para ter acesso ao código.
Observe que o evento possui o argumento Cancel que permite cancelar o fechamento do formulário e como conseqüência impede o fechamento do Access.
A variável blnSair com escopo Public deve ser criada em um módulo global.
Public blnSair as boolean
Como você aprendeu na dica 26 acima, a variável do tipo boolean tem o valor padrão False. Para então ser possível o fechamento do formulário e conseqüentemente o fechamento do Access é necessário passar a variável blnSair para True.
Observe o código abaixo do botão btSair do formulário principal, utilizado no exemplo abaixo:
Private Sub btSair_Click() blnSair = True DoCmd.Close acForm, "frmControleSaida" End Sub
Segue um pequeno exemplo para você testar.
Ao rodar o aplicativo exemplo, os formulários frmPrincipal e frmControlesaida serão carregados, sendo que o formulário frmControleSaida estará oculto.
Nota: Para impedir o carregamento dos formulários, mantenha a tecla SHIFT pressionada na inicialização.
Bom estudo!
Os dez artigos mais visitados
MontaRibbons v.7.0 - Assistente completo para criar ribbons no Access
Vídeo - Controle personalizado de Acesso de Usuários
Vídeo - Aprenda sobre filtragens
Vídeo - Segurança máxima, usando o OPEN
Uma ajuda para quem está começando um negócio ou um projeto
Integrando o Access com Servidor MySQL - Introdução
Desabilitando a faixa(ribbon) superior do Access
Vídeo - Programação de relatórios - Parte 1
Como carregar o seu menu sem que ele vá para lista de suplementos
Adquira o kit UsandoAccess e aprenda em alta velocidade
|
4 comentário(s) AUGUSTO SUZART PIMENTA NETO 16/02/2023 14:12:02 Olá Avelino, Funciona certinho, mas quando clico no botão logoff da ribbon ele mostra a mensagem "Para sair do Access clique no botão [Sair]".. Por que isso ocorre ? Era pra abrir o formulário de login para fazer um novo login .. Avelino Sampaio 09/05/2022 01:48:42 Leandro, o endereço do fórum: http://www.redeaccess.com.br Avelino Sampaio 09/05/2022 01:47:45 Leandro, se inscreva no meu fórum e me ofereça mais detalhes sobre o caso. Vc está usando o formulário de vendas para implementar este código ? O erro só acontece pela barra de tarefas ? Te aguardo lá pelo fórum Leandro Silva 07/05/2022 15:59:25 Boa dica Avelino, implantei essa rotina, porém em meu sistema de vendas quando tento fechar o mesmo pelo botão direito do icone na barra de tarefas após o evento "Unload" o form de vendas volta para o primeiro registro da tabela. Saberia informar o que pode estar ocorrendo? Abs! |
