MS Access中After Update事件无法执行Update Query问题求助

1. 修复变量声明的致命错误 #

你的代码第一行存在语法错误：

PublicOldQuantity As Long

Public和变量名OldQuantity之间缺少空格，导致全局变量实际名为PublicOldQuantity，但后续事件过程中使用的是OldQuantity——如果未开启Option Explicit，VBA会自动创建局部变体变量，而非你期望的全局变量。这直接导致GotFocus事件中保存的旧值无法传递到AfterUpdate事件，NewQuantity的计算逻辑完全错误。

修正后的全局变量声明：

Public OldQuantity As Long

2. 强制捕获SQL执行错误 #

在执行更新语句时添加dbFailOnError参数，强制VBA抛出执行错误，快速定位问题：

db.Execute strSQL, dbFailOnError

如果存在SQL语法错误、权限不足或记录锁定等问题，会直接弹出错误提示，帮你找到根源。

3. 验证变量值的正确性 #

在AfterUpdate事件中添加调试输出，确认所有变量的实际值是否符合预期：

Debug.Print "OldQuantity: " & OldQuantity
Debug.Print "Current Quantity: " & Quantity.Value
Debug.Print "Quantity Delta: " & NewQuantity
Debug.Print "Generated SQL: " & strSQL

打开VBA编辑器的立即窗口（Ctrl+G），观察输出内容，确认NewQuantity计算是否正确，以及生成的SQL语句和你手动执行的是否一致。

4. 暂时移除Me.Requery #

Me.Requery会刷新整个表单，可能导致控件状态重置，干扰你观察库存是否实际更新。先注释掉这行代码，执行操作后直接查看ProductT表的StockLVL值，确认更新是否生效。

5. 确认事件触发条件 #

检查Quantity控件的属性：

• 确保控件未设置为Locked或Enabled = False，否则GotFocus和AfterUpdate事件可能无法触发。
• 如果是绑定控件，确认控件绑定的字段数据类型为数值型（与Long匹配），避免类型转换错误。

内容的提问来源于stack exchange，提问作者uncrushedIce