アクセス+VBA 最適化

質問

アクセス+ＶＢＡです。
データをどんどん削除していき、最後にはデータが空になったら最適化をしたいのですが、そのコードが書けません。
DoCmd.DoMenuItem ～～では出来ないみたいで・・・

回答No.1

1050 円（@1050YEN） · ベストアンサー

DoCmd 最適化
で履歴を検索をしたら、いっぱいありますよ

http://okwave.jp/kotaeru.php3?q=391558

補足

ありがとうございます。
＃２さんの補足にも書きましたが、最適化の解除ができなくなりました。
お助けを・・・・

回答No.3

ese_ee

「閉じるとき最適化」を有効にして最適化した場合は、
どこかでそれを無効にする必要があります。

よくあるやり方としては、
http://www.accessclub.jp/samplefile/samplefile_74.htm
http://homepage2.nifty.com/MrUr/katuyo/saiteki.htm
http://www.geocities.jp/cbc_vbnet/download/compact/compact.html
がよろしいかと。

参考URL：

http://www.accessclub.jp/samplefile/samplefile_74.htm

補足

フォームを最初に開く時に
SetOption "Auto Compact", False
として、無効にしてるのですが・・・

回答No.2

_tomo_

方法は違いますが・・・
Accessの終了時にバッチを起動して最適化する方法もあります。

"c:\Program Files\Microsoft Office\Office\MSAccess.exe" "対象のAccess.mdb" /compact

また、自身のAccessファイルを最適化するのであれば以下の方法もあります。

メニュー［ツール］－［オプション］－［全般］タグの［閉じる時に最適化する］にチェックをする

補足

下記のようなコードにしました。

～～～
データが削除されカラになった
～～
SetOption "Auto Compact", True
DoCmd.Close
SetOption "Auto Compact", False
DoCmd.OpenForm ("フォーム")
～～
最適化された状態で最初からデータを入れれる。
～～

としたら、めでたく最適化してくれたのですが、
SetOption "Auto Compact", False
と、記述しても解除されなくなりました。

別フォルダにある関係ないアクセスデータベースまで最適化されます。
メニュー＞ツール＞オプション＞全般＞閉じる時に最適化するもチェックはされていません。

どうしたら、解除できるでしょうか？