自分がMicrosoft Accessで業務アプリケーションを製作するときに、ほぼ共通して必ず仕込んでいるコードを紹介する。 汎用性はそこそこ高いと思うので参考にしてくれたら幸いだ。 条件付きで終了時にデータベース最適化 本番リリース版(拡張子がaccde)に限り、アプリケーション終了時に自分自身のファイルサイズが既定値を超えていたらデータベースの最適化を行う。 定数LIMITはConst定義されているものとする。データベース本体がSQL Server等ではなくローカルにある場合限定だ。 Private Sub Form_Unload(Cancel As Integer) Dim nSize As Long If Right(CurrentDb.Name, 5) <> "accde" Then Exit Sub nSize = FileLen(CurrentDb.Name) / 1024