MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


    Evita corrupção do Banco

    JPaulo
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10591
    Registrado : 04/11/2009

    Evita corrupção do Banco Empty Evita corrupção do Banco

    Mensagem  JPaulo em 4/1/2018, 10:12

    Esta função é utilizada no evento Unload do seu formulário principal;

    Código:
    Public Function EvitaCorrupcao()
    'By jpaulo 03-01-2018 - www.maximoaccess.com
    'Evita corrupção do banco
    'Usar no evento Unload do seu form Principal
    'Private Sub Form_Unload(Cancel As Integer)
    '    Call EvitaCorrupcao
    'End Sub
        Dim ws As Workspace
        Dim db As Database
        Dim rs As Recordset
       
        For Each ws In Workspaces
            For Each db In ws.Databases
                For Each rs In db.Recordsets
                    rs.Close
                    Set rs = Nothing
                Next
                db.Close
                Set db = Nothing
            Next
            ws.Close
            Set ws = Nothing
        Next
        On Error Resume Next
        Application.Quit acQuitSaveAll
    End Function


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    Evita corrupção do Banco Folder_announce_new Utilize o Sistema de Busca do Fórum...
    Evita corrupção do Banco Folder_announce_new 102 Códigos VBA Gratuitos...
    Evita corrupção do Banco Folder_announce_new Instruções SQL como utilizar...
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 6379
    Registrado : 15/03/2013

    Evita corrupção do Banco Empty Re: Evita corrupção do Banco

    Mensagem  ahteixeira em 7/1/2018, 17:32

    Olá JPaulo,
    Obrigado, mais uma excelente dica/partilha!
    Abraço
    avatar
    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 161
    Registrado : 14/08/2011

    Evita corrupção do Banco Empty Re: Evita corrupção do Banco

    Mensagem  leoni_dias em 21/4/2018, 00:33

    Boa noite, grande Jpaulo.

    Como sempre um expert no access e afins.

    Que bom saber que vc ainda continua por aqui.

    Aprendi muito com vc, cricrio e outros.

    Parabéns.

    Conteúdo patrocinado

    Evita corrupção do Banco Empty Re: Evita corrupção do Banco

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2019, 20:05