MS Access含DSum的关联查询无法更新问题求助

先明确你的表结构和核心需求：
你有两张业务表：

tbl_Users表（存储员工培训预算） #

ID | UserID | FName | SName | Dept | Budget
1  | 1      | John  | Smith | CS   | 1000
2  | 2      | Ian   | Caine | CS   | 2500
3  | 3      | Jane  | Kelly | ED   | 1000
4  | 1      | John  | Smith | EQ   | 1000
5  | 2      | Ian   | Caine | EQ   | 2500
6  | 3      | Jane  | Kelly | CS   | 1000

tbl_Courses表（存储员工已修课程记录） #

ID | UserID | Course | Date   | Dept | Cost
1  | 1      | CS01   | 1/4/18 | CS   | 100
2  | 2      | CS01   | 1/4/18 | CS   | 100
3  | 1      | CS02   | 10/4/18| CS   | 75
4  | 2      | CS02   | 10/4/18| CS   | 75
5  | 1      | CS01   | 1/4/18 | EQ   | 100

你的目标是关联两张表，实现添加课程记录时实时查看剩余预算，但当前使用的查询是不可更新的：

SELECT u.UserID, c.Date, c.Cost, 
       u.Budget - DSum("sub.Cost", "tbl_Courses", "ID <= " & c.ID & " AND UserID = " & c.UserID & " AND Dept = '" & c.Dept & "'") AS [Budget Remaining]
FROM tbl_Users u INNER JOIN tbl_Courses AS c ON u.UserID = c.UserID AND u.Dept = c.Dept

为什么这个查询不可更新？ #

你提到已经查阅了常见原因清单，这里的核心问题其实是域聚合函数（比如DSum）的使用：
Access的可更新查询要求每条查询记录能直接映射到原始表的单条物理记录，但DSum是基于整个表的多条记录计算出的动态值，Access无法将对这个计算字段的修改反向同步到原始表，这类聚合计算会让查询结果变成只读的快照数据集，而非可编辑的记录集。

针对性解决办法 #

结合你的“添加课程+查看剩余预算”需求，推荐两种实用方案：

方案1：将预算计算移到表单控件，保留表的可编辑性

这是最贴合需求的方案：创建一个绑定到tbl_Courses的表单（表单本身可直接添加/编辑课程记录），然后添加一个文本框用于显示剩余预算，控件来源设置为：

=DLookUp("Budget","tbl_Users","UserID=" & [UserID] & " AND Dept='" & [Dept] & "'") - DSum("Cost","tbl_Courses","UserID=" & [UserID] & " AND Dept='" & [Dept] & "' AND ID<=" & Nz([ID],0))

• 这个控件会实时计算当前员工对应部门的累计花费，再用预算减去花费得到剩余金额；
• 表单直接绑定原始表，完全支持课程记录的新增、编辑，同时能实时展示预算剩余情况。

方案2：用关联子查询替代DSum（仅用于查看）

如果只是需要用查询展示剩余预算，可以用关联子查询替换DSum，逻辑更清晰：

SELECT 
    u.UserID, 
    c.Date, 
    c.Cost,
    u.Budget - (SELECT Sum(sub.Cost) 
                FROM tbl_Courses sub 
                WHERE sub.UserID = c.UserID 
                  AND sub.Dept = c.Dept 
                  AND sub.ID <= c.ID) AS [Budget Remaining]
FROM tbl_Users u 
INNER JOIN tbl_Courses AS c ON u.UserID = c.UserID AND u.Dept = c.Dept

注意：这种包含子查询聚合的查询依然是只读的，只能用来查看数据，无法直接添加课程记录。

方案3：VBA增强预算校验（可选）

如果需要在添加课程时自动校验预算是否充足，可以在表单的BeforeUpdate事件中添加VBA代码：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim totalSpent As Double
    Dim budget As Double
    
    ' 获取当前员工对应部门的预算
    budget = DLookup("Budget", "tbl_Users", "UserID=" & Me.UserID & " AND Dept='" & Me.Dept & "'")
    ' 获取当前员工对应部门已花费总金额（含当前待添加的课程）
    totalSpent = DSum("Cost", "tbl_Courses", "UserID=" & Me.UserID & " AND Dept='" & Me.Dept & "'") + Me.Cost
    
    If totalSpent > budget Then
        MsgBox "剩余预算不足，无法添加此课程！", vbExclamation
        Cancel = True ' 取消保存操作
    End If
End Sub

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