MaximoAccess

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

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

    Compactar BD através de um Atalho no windows

    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    Compactar BD através de um Atalho no windows Empty Compactar BD através de um Atalho no windows

    Mensagem  =>Nois em 17/11/2015, 17:27

    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.


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    Compactar BD através de um Atalho no windows Empty Re: Compactar BD através de um Atalho no windows

    Mensagem  =>Nois em 27/10/2020, 12:52

    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)


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken
    =>Nois
    =>Nois
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 879
    Registrado : 09/11/2012

    Compactar BD através de um Atalho no windows Empty Re: Compactar BD através de um Atalho no windows

    Mensagem  =>Nois em 4/11/2020, 14:48

    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)


    .................................................................................
    Att. Nois

    Se tudo não der certo... tente de novo drunken

      Data/hora atual: 28/11/2020, 10:55