アクセスを閉じる際のＶＢＡの最後に１行を追加すると、常に最適化を行うことができる。
SetOption "Auto Compact", True例えば下記のように使うことが可能。
テーブルを空っぽにして最適化してから終了。
オートナンバーがクリアされて「１」からカウントになる。
データの肥大化も防いで速度低下を起こさせない。
Private Sub ボタン名_Click()
'アラートメッセージを停止
DoCmd.SetWarnings False
DoCmd.OpenQuery "削除"
'アラートメッセージを再開
DoCmd.SetWarnings True
DoCmd.Quit acQuitSaveNone
SetOption "Auto Compact", True
End Sub