Compactado BD ao fechar

boa noite pessoal eu gostaria de um código para compactado ao fechar o bd eu até encontrei vários modelos mais eu não consegui adaptar ao meu sempre emite uma mensagem dizendo que não pode ser compactado com bd fechado alguém sabe alguma solução?

No Access 2010 ou Superior ja tem essa opção Nativa.

Arquivos>Opções>Banco de Dados atual. Opção: Compactar ao Fechar.

Funciona, porem eu não recomendo utilizar.

Tive muitos problema com isso. Muitas vezes ele não consegui compactar e fazia uma copia do Banco, então não sabia em qual estava os dados correto... Enfim, não utilizo. Mas faça um teste!

ola FabioPaes boa tarde vou testar e retorno ta bom? obrigado

Da uma olhada neste topico

https://www.maximoaccess.com/t32050-backup-interativo

bom dia Fabio da forma que você mencionou funcionou funcionou, mais agora eu estou com receio de usar ,porque da forma que você disse
(Tive muitos problema com isso. Muitas vezes ele não consegui compactar e fazia uma copia do Banco, então não sabia em qual estava os dados correto)porém vou testar mais algumas vezes e depois retorna, e quanto ao exemplo que o tauron me enviou muito obrigado, se o do Fabio nao der certo eu vou tentar adaptar o seu ,desde ja muito obrigado a vocês

ola Fabio boa noite me desculpa a demora em responder e que estava fazendo teste como você havia me informado mais aqui no meu ele ficava muito lento quando fechava e as vezes até travava e o quanto a resposta do tauron pelo que eu entendi era tópico de backup estou usando Office 10

veja se ajuda:

https://www.maximoaccess.com/t3873-resolvidocompactar-banco-de-dados

boa noite tauron muito obrigado pela resposta eu fiz o teste não deu nenhum erro, o que eu reparei e que o usuário pode alterar a configuração do sistema ou seja pode alterar na abertura .

Como assim, alterar o sistema? Confesso que não olhei o link, apenas pesquisei aqui no forum. Se puder postar daremos uma olhada.

boa noite Tauron veja o código do qual eu disse


No evento VBA ao pressionar de um botão...
Private Sub SeuBotão _Click()
Dim ws As Object
Set ws = CreateObject("WScript.shell")
ws.SendKeys "%AGO"
Set ws = Nothing
End Sub

Marcelo veja a ultima postagem do ultimo link que indiquei (mensagem 40).

https://www.maximoaccess.com/t3873-resolvidocompactar-banco-de-dados


Fiz teste aqui no evento "ao fechar" de um formulario e funfou legal.

boa noite meu amigo eu testei aqui ele não está dando nenhum erro porém ele não compactou será que é alguma configuração no meu access?

Você esta pretendendo tranformar seu bd em um arquivo .rar ou .zip eh isso? eu achei que voce queria simplesmente reduzir o tamanho do banco.

Se vc possui uma copia do bd (sem o comando de compactar e reparar) compare o tamanho com o outro(com o comando).