bollywood actresses hair loss hair rehab london contact number cheap hair extensions brazilian curly hair with closure hair extension fails human hair wigs black ponytail hairstyles 2018 sunny hair extensions uk hair extensions remy hair extensions weft koko one piece hair extensions clip hair
Permitir fechar o Access apenas por botões específicos
Permitir fechar o Access apenas por botões específicos

Adquira a assinatura vitalícia do site e passe a ter acesso aos arquivos exemplos, vídeos, revistas, livros e ao kit de montagem de ribbons. Você terá suporte por e-mail, caso necessite tirar dúvidas pontuais. Clique AQUI e veja como obter um dos nossos planos. Clique AQUI e faça uma visita a seção Downloads do site e verifique as centenas de arquivos que estará à sua disposição. Clique AQUI e faça uma visita a seção Vídeos do site e veja a lista que estará disponível ao se tornar o nosso assinante vitalício. Clique AQUI e saiba mais detalhes sobre o kit de montagem de ribbons (deixe seus aplicativos com aspecto profissional).



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.

Private Sub Form_Unload(Cancel As Integer)
If blnSair = False Then
   MsgBox "Para sair do Access clique no botão [Sair] do formulário...", _ 
   vbInformation, "Aviso"
   Cancel = True
Else
   'Sair do Access
   DoCmd.Quit
End If
End Sub

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!


 

 


3 comentário(s)

Avelino Sampaio   09/05/2017 01:48:42

Leandro,

o endereço do fórum: http://www.redeaccess.com.br


Avelino Sampaio   09/05/2017 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/2017 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!


Envie seu comentário: