ms-access - システム リソースが BeginTrans および Execute メソッドでエラーを超える

Question

BegintransおよびCurrentDB.Executeメソッドを使用して (SQL 結合 2 テーブルを使用して) 更新クエリを実行しようとして、行き詰まりました。数秒実行すると、 「System Resource Exceed」エラーが表示されます。

Sub updade_clients()

Dim dbLOCAL_DB As Database
Dim strSQL As String
Dim strWORKSPACE As DAO.WORKSPACE
Set strWORKSPACE = DBEngine.Workspaces(0)

strSQL = "" & _
"UPDATE TBL_IND_CLIENTE_2008_01 INNER JOIN TBL_IND_CLIENTE_2011_01 ON " & _
"TBL_IND_CLIENTE_2008_01.NUMERO = TBL_IND_CLIENTE_2011_01.NUMERO SET " & _
"TBL_IND_CLIENTE_2008.01.CONJUNTO_ELETRICO = [TBL_IND_CLIENTE_2011_01]![CONJUNTO];"

strWORKSPACE.BeginTrans
CurrentDb.Execute strSQL, dbFailOnError
DBEngine.CommitTrans

End Sub

両方のテーブルには、約 150 万のレコードがあります。

Answer 1

メモリが不足していることを意味します。150 万件のレコード = 頭痛の種です。