カスタム検索
Office関連

開いているデータベースを最適化する(Access VBA)

下記のコードで、現在開いているデータベース自身を最適化できます。
※ Access 2000と2003で動作の確認を行いました。
※ 入力中のデータが失われる場合がありますので、下記コードを実行する際は十分ご注意ください。

 

Sub CompactAndRepairDatabase()
  Application.CommandBars.FindControl(id:=2071).accDoDefaultAction
End Sub