| 投稿日 | ： 2004/12/22(Wed) 15:09 |
| 投稿者 | ： カムリン |
| Ｅメール | ： kamurin@hotmail.com |
| ＵＲＬ | ： |
| タイトル | ： Re^2: Accessのテーブルを最適化させたい |
私の場合こうしてます。
環境は、Acccess2000 で DAOです。
引数に最適化したいDBの名前を入れます。
この関数実行中は対象のDBが、
閉じられている(どのプログラムからも参照されていない)のが前提です。
Public Function Comp_MDB(I_MDB As String)
Dim T_MDB As String
T_MDB = Left$(I_MDB, Len(I_MDB) - 3) & "tmp"
On Error Resume Next
Kill T_MDB '既にtmpファイルが在った場合の為の削除処理
Name I_MDB As T_MDB
DBEngine.CompactDatabase T_MDB, I_MDB
End Function