Compactar BD

[PROTEGGERE 0]

Sou novato no access e gostaria de saber como consugui inserir um botão em um formulário para compactação/reparação. Pois ao inicializar e criar o arquivo mde essa opção some da barra de ferramentas. Gostaria de inserir um botão no formulário principal para que não se precise faze-lo diretamente pelo programa.Valeu Amigos.

[Julio Augusto 0]

Cara a primeira dica seria você fazer um BdCompactação para compactar seus bancos.Sub CompactDim Destino as stringDim Origem as string'============================================='Diretorio a onde o access fara uma copia do arquivo compactado Destino = "C:\Bkp\" '=============================================' A onde esta o arquivo original Origem = "C:\" '============================================='Checando se já existe uma arquivo no destino e caso exista apagando If Dir(Destino & "MeuBanco_BKP.mdb") <> "" Then Kill (Destino & "MeuBacno_BKP") End If'=============================================' Compactando Bando de Dados sem senha.... DBEngine.CompactDatabase Origem & "MeuBanco.mdb", Destino & "MeuBanco_BKP.mdb"'=============================================' Apagando arquivo anterior Kill (Origem & "Meubanco.mdb")'=============================================' Copiando arquivo compactado FileCopy Destino & "MeuBanco_BKP.mdb", Origem & "MeuBanco.mdb"