Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

charlie69

Compact and repair

Mensagens Recomendadas

charlie69

Boas malta

Tudo bem?

Qual o código para fazer o compact and repair de um access, a partir do módulo vba do excel.

Cumps

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites
rogi_cps

Estive pesquisando algo para lhe ajudar.. espero qeu isso ajude.

Function RepairDatabase(strSource As String, strDestination As String) As Boolean
        ' Input values: the paths and file names of
        ' the source and destination files.
    ' Trap for errors.
    On Error GoTo error_handler

    ' Compact and repair the database. Use the return value of
    ' the CompactRepair method to determine if the file was
    ' successfully compacted.
    RepairDatabase = _
        Application.CompactRepair( _
        LogFile:=True, _
        SourceFile:=strSource, _
        DestinationFile:=strDestination)

    ' Reset the error trap and exit the function.
    On Error GoTo 0
    Exit Function

' Return False if an error occurs.
error_handler:
    RepairDatabase = False

End Function

Public Sub teste()
Dim strSource As String
Dim strDestination As String
strSource = "e:\arquivos\igor\hemocentro\cópia de duplicidade.mdb" 'altere o caminho
strDestination = "e:\arquivos\igor\hemocentro\cópia de duplicidade.mdb" 'altere o camino

RepairDatabase strSource, strDestination
End Sub

:thumbsup:

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.