SAPMM Sáb 17 Set 2011, 12:05 am
meu access é 2010, não consegui aplicar o vbs, conforme instruções abaixo do nosso amigo.
Voltando ao que interessa, sugiro;
Em todos os bancos que fizerem, coloquem sempre a Compactar ao Fechar, o Banco reduz o inchaço significativamente.
Esse modo pode ser efetuado, colocando um visto na caixinha do Compactar ao fechar, em Ferramentas/Opções
Ou por VB Script (uma novidade para alguns)...
Numa folha de texto vazia (notepad), cole:
Dim objScript
Dim objAccess
Dim strPathToMDB
Dim strMsg
'caminho e banco a compactar
strPathToMDB = "C:\teste.mdb"
'Caminho e banco virtual para permitir a compressão
strTempDB = "C:\testeCompress.mdb"
Set objAccess = CreateObject("Access.Application.11")
objAccess.DbEngine.CompactDatabase strPathToMDB ,strTempDB
If Err.Number > 0 Then
strMsg = "O seguinte erro foi encontrado durante a compactação do banco de dados:"
strMsg = strMsg & vbCrLf & vbCrLf & Err.Description
Else
Set objScript= CreateObject("Scripting.FileSystemObject")
objScript.CopyFile strPathToMDB , strPathToMDB & "z", True
objScript.CopyFile strTempDB, strPathToMDB, True
objScript.DeleteFile strTempDB
End If
Set objAccess = Nothing
Set objScript = Nothing
WScript.Echo "Banco compactado com sucesso..."
Renomei a folha de .txt para .vbs
.................................................................................
Sucesso e abraço
Success and hug
A imaginação é inútil sem a aplicação de conhecimentos.
Imagination is fruitless without applying knowledge..