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

    Compartilhe
    avatar
    JPaulo
    Moderador
    Moderador

    Respeito às Regras 100%

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

    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.

    [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver este link.]

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    [Você precisa estar registrado e conectado para ver esta imagem.] [Você precisa estar registrado e conectado para ver este link.]
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: Evita corrupção do Banco

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

    Olá JPaulo,
    Obrigado, mais uma excelente dica/partilha!
    Abraço

    leoni_dias
    Intermediário
    Intermediário

    Respeito às Regras 100%

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

    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.

      Data/hora atual: 23/10/2018, 02:35