Compactar BD através de um Atalho no windows

Compactar BD através de um Atalho no windows

Na área de trabalho click com botão direito e em criar atalho e cole a linha abaixo,
substituindo o local do seu bd no final do comando:

"C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE" "c:\SuaPasta\SeuArquivo.accdb"/compact

fiz no office 2010 dependendo da sua versão do access vc deve localizar a pasta de origem do office.

Pelo VBA direto

no caso esse no office 365, para os demais é so indicar a pasta correta onde se encontra o arquivo MSACCESS.EXE

dim strArquivo as String

strArquivo = "c:\seuarquivo\teste.accdb"

Call Shell("C:\Program Files\Microsoft Office\root\Office16\MSACCESS.EXE" & " " & strArquivo & " /compact", 1)

ou tb (não precisa no endereço da aplicação do acces)


Dim strcmd, strDB As String
Dim objaccess As Access.Application
strDB = "C:\suapasta\seuarquivo.accdb"
strcmd = SysCmd(acSysCmdAccessDir) & "\msaccess.exe " & " " & strDB & " /compact"
Call Shell(strcmd, vbNormalFocus)