系统资源超过错误BeginTrans和Execute方法

Question

我陷入困境，试图通过运行更新查询（通过SQL连接2个表）Begintrans和CurrentDB.Execute方法。一个“系统资源超过”错误出现几秒钟后运行它。

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

意味着它的内存不足。 1.5百万条记录=头痛。