请求编写MS Access VBA代码自动更新完成状态表（基于PartNumber空值判断）

一、先解决SQL替代CASE的问题 #

Access确实不支持CASE语句，改用IIF函数就能实现类似逻辑。先写一条查询语句，找出所有满足「对应PartNumber下目标字段全为NULL」的记录，再用这个结果更新completion表。

比如要检查FacilityManufacturedAt、TimePartCreated、RouterNumber三个字段全为NULL的情况，可写统计查询：

SELECT PartNumber, 
       IIF(SUM(IIF(FacilityManufacturedAt IS NOT NULL OR TimePartCreated IS NOT NULL OR RouterNumber IS NOT NULL, 1, 0)) = 0, 'N', 'Y') AS Status
FROM 你的数据源表名
GROUP BY PartNumber

这条语句会统计每个PartNumber下有多少条记录至少有一个字段非NULL，若总数为0则标记为'N'。

二、VBA自动更新代码（新手友好版） #

如果需要一键执行更新，下面是完整VBA代码，复制后替换代码里的表名即可使用：

1. 打开Access，按Alt+F11打开VBA编辑器
2. 点击菜单栏「插入」→「模块」
3. 粘贴以下代码：

Sub UpdateCompletionStatus()
    Dim db As DAO.Database
    Dim updateSQL As String
    
    ' 初始化数据库对象
    Set db = CurrentDb
    
    ' 先将所有状态默认设为已完成（可选，用于全量更新）
    updateSQL = "UPDATE completion SET Status = 'Y'"
    db.Execute updateSQL, dbFailOnError
    
    ' 更新符合条件的PartNumber为未完成状态
    updateSQL = "UPDATE completion " & _
                "SET Status = 'N' " & _
                "WHERE PartNumber IN (" & _
                    "SELECT PartNumber " & _
                    "FROM 你的数据源表名 " & _
                    "GROUP BY PartNumber " & _
                    "HAVING SUM(IIF(FacilityManufacturedAt IS NOT NULL OR TimePartCreated IS NOT NULL OR RouterNumber IS NOT NULL, 1, 0)) = 0" & _
                ")"
    
    ' 执行更新，出错则提示
    On Error Resume Next
    db.Execute updateSQL, dbFailOnError
    On Error GoTo 0
    
    MsgBox "状态更新完成！", vbInformation
    
    ' 释放资源
    Set db = Nothing
End Sub

代码说明： #

• 先把completion表所有状态默认设为'Y'，再将符合条件的改为'N'，避免遗漏未更新的记录
• HAVING子句用于筛选出目标字段全为NULL的PartNumber
• dbFailOnError参数保证SQL执行出错时会触发提示，方便排查问题

三、新手操作步骤 #

1. 把代码里的你的数据源表名替换为实际存储PartNumber和三个目标字段的表名；如果有多个数据源表，用UNION ALL合并，比如FROM (SELECT * FROM 表1 UNION ALL SELECT * FROM 表2)
2. 保存模块（命名随意，比如Module_Completion）
3. 返回Access主界面，创建一个按钮，在按钮「点击事件」中选择「宏生成器」，再选「运行代码」，指定刚才的UpdateCompletionStatus子过程
4. 后续点击该按钮即可自动更新状态

四、注意事项 #

• 确保completion表存在PartNumber（文本/数字类型，和数据源表一致）和Status（文本类型，长度至少1）字段
• 运行代码前建议备份数据库，防止误操作
• 如果数据源表数据量很大，可先建立PartNumber的索引，提升查询速度

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