UNLOAD
Pessoal estou com um problema serio que não estou conseguindo resolver
Bom vamos lá é o seguinte:
Quando fecho meu sistema finalizo todas as conexões dentro de um procedimento FECHAR, após fechar tudo ele
encerra o aplicativo com o (Unload Me) e (END).
Essa procedimento eu chamo por um BOTÃO, MenuSair, UNLOAD do FORM.
No Botão e no MenuSair eles fecham corretamente ja no botão de fechar do FORM não esta fazendo isso!
Ele fecha tudo só que no GERENCIADOR DE TAREFAS fica aberto.
Como eu posso esta resolvendo isso?
Conto com vocês obrigado
Bom vamos lá é o seguinte:
Quando fecho meu sistema finalizo todas as conexões dentro de um procedimento FECHAR, após fechar tudo ele
encerra o aplicativo com o (Unload Me) e (END).
Essa procedimento eu chamo por um BOTÃO, MenuSair, UNLOAD do FORM.
No Botão e no MenuSair eles fecham corretamente ja no botão de fechar do FORM não esta fazendo isso!
Ele fecha tudo só que no GERENCIADOR DE TAREFAS fica aberto.
Como eu posso esta resolvendo isso?
Conto com vocês obrigado
Coloca o procedimento que fecha as conexões e um End no evento QueryUnload do Form
No seu butão Fechar e no MenuSair coloca apenas [txt-color=#0000f0]unload Me[/txt-color], que quando dá unload, vai passar por esse evento, antes de fechar.
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
[ô] Fecha Conexões
End
End SubNo seu butão Fechar e no MenuSair coloca apenas [txt-color=#0000f0]unload Me[/txt-color], que quando dá unload, vai passar por esse evento, antes de fechar.
Bom Dia FILMAN
O código que o ROBIU enviou funciona perfeitamente, mas ja aconteceu comigo (não sei porque) do processo ficar [Ô]travado[Ô] na memoria usando o QueryUnload.
Eu resolvi utilizando o Unload mesmo
Segue a forma que utilizei
Até +
O código que o ROBIU enviou funciona perfeitamente, mas ja aconteceu comigo (não sei porque) do processo ficar [Ô]travado[Ô] na memoria usando o QueryUnload.
Eu resolvi utilizando o Unload mesmo
Segue a forma que utilizei
Private Sub Form_Unload(Cancel As Integer)
[ô]//CANCELA A FINALIZACAO DO APLICATIVO
Cancel = True
[ô]//FINALIZA AS CONEXOES
Call CloseConnections
[ô]//DERRUBA O PROGRAMA DA MEMORIA
End
End Sub
Até +
Ok pessoal valeu pela ajuda
Deu certo! da maneira do nosso amigo SPRITU
Obrigado
Deu certo! da maneira do nosso amigo SPRITU
Obrigado
Tópico encerrado , respostas não são mais permitidas