下記のコードで、現在開いているデータベース自身を最適化できます。 ※ Access 2000と2003で動作の確認を行いました。 ※ 入力中のデータが失われる場合がありますので、下記コードを実行する際は十分ご注意ください。 Sub CompactAndRepairDatabase() Application.CommandBars.FindControl(id:=2071).accDoDefaultAction End Sub ※ 当サイトはInternet Explorer 6,7,8、Firefox 3.5、Opera 10、Safari 4、Google Chrome 3で動作確認を行いました。 ※ 当サイトの推奨閲覧環境:ディスプレイの解像度「1024×768ドット以上」、フォントサイズ「中」 ※ 当サイト上に掲載されている情報によって生じた、いかなる損害についても管理者は一切の責