FECHAR SISTEMA/DESCARREGAR FORMS/RECORDSETS

VILANOVA 01/11/2010 13:12:29
#356397
Amigos, boa tarde, eu de volta, para uma perguntinha boba, vejam so no botao unload do meu form coloquei o evento para o usuario fechar o sistema, dando END na aplicação, mas o que notei e que esta ficando na memoria alguns recordsets, e alguns forms , como eu posso definitivamente exterminar essa aplicação, e o que estiver aberta da mesma? desde ja agradeço muito.
MSMJUDAS 01/11/2010 13:18:06
#356398
Vc pode verificar o estado do recordset antes do END:

If RsTabela.State = 1 Then RsTabela.Close

Onde 1 significa que está aberto
XXXANGELSXXX 01/11/2010 15:40:46
#356409 Resposta escolhida 
  
Sub FecharSistema()
    MEN=MsgBox([Ô]   Deseja Fechar o Sistema?[Ô], vbQuestion + vbYesNo, [Ô]Mensagem[Ô])
    If MEN = vbYes Then
     Dim ret As Object
            For Each ret In Forms
                Unload ret
                Set ret = Nothing
            Next
            If Conexao.State = 1 Then Conexao.Close
                 End
            Shell [Ô]TSKILL NOMEDOSEUSISTEMA[Ô]
VILANOVA 01/11/2010 15:41:50
#356410
Citação:

:

  
Sub FecharSistema()
    MEN=MsgBox([Ô]   Deseja Fechar o Sistema?[Ô], vbQuestion + vbYesNo, [Ô]Mensagem[Ô])
    If MEN = vbYes Then
     Dim ret As Object
            For Each ret In Forms
                Unload ret
                Set ret = Nothing
            Next
            If Conexao.State = 1 Then Conexao.Close
                 End
            Shell [Ô]TSKILL NOMEDOSEUSISTEMA[Ô]

era isso mesmo que estava procurando, muito obrigado msjudas, muito obrigado xxxangelsxxx..
Tópico encerrado , respostas não são mais permitidas
Voltar