[Resolvido]Compactar Banco de Dados

tenho um formulario com a duas opções SIM e NÃO para compactar meu banco de dados

para compactar estou usando esse código abaixo, só que toda vez aparece a janela do VBA e o no .dbBoolean selecionado. o que faço?

CurrentDb.Properties("Auto Compact").dbBoolean.Value = Me!qdCompactar

Boas Noites

De uma Vista de olhos Pelos trabalhos do Mestre

Avelino Sampaio

www.usandoaccess.com

Tem coisas muitos boas para aprendisagem

Public Sub SetAutoCompact(fAutoCompact As Boolean)
Dim Dbs As DAO.Database
Dim Prp As DAO.Property
Const conPropNotFoundError = 3270
Set Dbs = CurrentDb
On Error Resume Next
Dbs.Properties("Auto compact") = fAutoCompact
If Err.Number = conPropNotFoundError Then
Set Prp = Dbs.CreateProperty("Auto compact", _ dbBoolean, fAutoCompact)
Dbs.Properties.Append Prp
End If
End Sub

só uma duvida

eu tenho duas opções SIM e NÃO. nesse que você mandou dar para colocar assim.??

Dá para fazer apenas com uma checkbox (campo sim/não)

Depois do codigo estar num modulo;

No evento VBA depois de atualizar dessa checkbox;

Private Sub SuaCheckBox_AfterUpdate()
    Call SetAutoCompact(Me.SuaCheckBox)
End Sub

Ou seja;
Marcada = True
Desmarcada = False

Exemplo:

E ae, Resolveu ?

Sem retorno, Resolvido.