Erro ao tentar compactar via código

Tentei executar esta rotina postada na seção Downloads e recebi a mensagem dizendo que não é possível compactar como bd aberto.

Public Function CompactDb()
On Error Resume Next
CommandBars. _
FindControl(ID:=2071). _
accDoDefaultAction
End Function

Coloquei o comando call CompactDb() no botão sair do form principal.

veja se este tópico pode ajudar

http://maximoaccess.forumeiros.com/t10920-resolvidocompactar-banco-dividido?highlight=Compactar

Biaterra,


Este método que você sugeriu funciona em BD que está com o back end em mysql?

Achei este código na internet,parece ser interessante para o meu problema:
Segundo o autor, ele serve para compactar um bd sem a necessidade de abrí-lo. Então pensei em coloca-lo separado e orientar ao cliente para de tempos em tempos executá-lo. A questão é: o código não está em VBA. Alguém consegue criar uma versão em VBA dele?

http://codigofonte.uol.com.br/codigos/compactar-e-reparar-banco-access]http://codigofonte.uol.com.br/codigos/compactar-e-reparar-banco-access

O que precisa é de um botão para backup?

Eu uso este, adapte para seu banco e coloque um botão para o usuário...

Biaterra,

Esse form de backup é interessante, porém a minha base está em MYSQL. Eu quero compactar porque o access com o tempo vai inchando.

Eu ainda tenho uma base local nele, que é a tabela de senhas, mas vou colocá-la no MYSQL também para ver se mesmo assim, sem tabela nenhuma dentro, ele vai continuar crescendo.

Eu li que, independente do que você faça o access sempre vai inchar.Dai a necessidade de compatar de vez em quando. Mas o compactar que eu digo é aquele do próprio access, não via winzip.

Avelino,

Obrigado pelas dicas.

Acho que vou utilizar a opção compactar ao fechar.