Microsoftの技術情報
多数のトランザクション処理中にエラー メッセージ “ファイルの共有ロック数が制限を超えています” が表示される
トランザクションとかかけてないし、何？？
資料見ると
「方法 1 : MaxLocksPerFile レジストリ キーを設定して、ファイルごとの最大ロック数を増やす」
おいおい、このアプリ導入している端末全部変えるの？無理あるよね。
「方法 2 : SetOption メソッドを使用して MaxLocksPerFile の値を一時的に変更する」
これこれ、試しました。
規定値が9500なので倍にしたけど駄目。
30000に変更したら、Windows2008R2+Access2007で動作。
でもWindows7+Access2007では同じエラー、さらに40000へアップ。
やっと動きました！
VBAに追加したコードはこれです。
DBEngine.SetOption dbMaxLocksPerFile, 40000
Accessでは勝手にトランザクション処理が動いていて、初期値9500件を超えると、3052エラーが発生するそうです。
対処方法は、安易に最大値を増やすのではなく、定期的にコミットする事。
変更したコードが下記です。（赤色追記）
Dim intTranCount AS integer
Set rsOut = dbCUR.OpenRecordset(“SELECT * FROM OXテーブル”)
intTranCount = 0
DBEngine.BeginTrans
Do While Not rsOut.EOF
rsOut.Edit
rsOut(21).Value = rsOut(10).Value
rsOut.Update
rsOut.MoveNext
’トランザクションMAX制御
intTranCount = intTranCount + 1
If intTranCount = 5000 Then
DBEngine.CommitTrans
DBEngine.BeginTrans
intTranCount = 0
End If
Loop
DBEngine.CommitTrans
rsOut.Close
