Рассмотрим Агрегат домена DSum для обновляемого запроса. Также рассмотрите возможность сохранения вашего запроса как хранимого объекта в базе данных, так как он более эффективен, так как механизм доступа может скомпилировать его для лучшего плана выполнения. Кроме того, избегайте Ключ для имени столбца, так как это зарезервированное слово .
SQL
UPDATE CUSTOMERS_TEMP CUST
SET CUST.Monthly_Total = DSum("SALES_PRICE", "SALESHISTORY_TEMP",
"[Key]='" & CUST.[Key] & "'")
* VBA 1015 *
CurrentDb.Execute "mySavedQuery", dbFailOnError
Наконец, пересмотрите сохранение агрегированных данных в исходных таблицах, так как вы всегда можете запрашивать их по мере необходимости и избегать ресурсов хранения.