Access2000で最適化をVBAで実行できますか？

質問

Access2000のメニューから操作する「最適化」をVBAで実行できませんか？
データ（レコード）を削除したときなど、終了時に自動実行させたいのですが。
（オプションで設定すると、常に実行されるので）

よろしくお願いいたします。

回答No.2

PSSan

マクロが簡単でいいのではないかとおもいます。
マクロのアクションで「コマンドの実行」を選択して、引数のコマンドで「データベースの最適化」を指定します。

また、そのマクロをVBAに変換するとわかりますが、
DoCmd.RunCommand acCmdCompactDatabase
の1行でVBAでも同様に最適化を行うこともできますよ。

お礼

ありがとうございます。参考になりました。
これで、フォームに最適化のコマンドボタンを設計できそうです。

回答No.1

Gin_F

> （オプションで設定すると、常に実行されるので）
SetOption メソッドで、オプションの設定を変更するとか。。
＃ただし、いったん終了しないと反映されなかったかな？

お礼

ありがとうございます。
現在、回答を参考にフォームを開いたときにオプションの終了時に最適化をOffにして、
レコードの削除が行われたときにOnにする、プログラムを考えています。