Access 2016：如何自动更新新创建记录的指定字段？

针对你提到的两种场景，我整理了两个能让新记录创建后立即自动生成CustID的方案，完全替代手动执行更新查询的操作：

方案一：表级数据宏（全局生效，所有创建记录的方式都触发） #

这个方案是在表层面设置，不管你是通过表单、数据导入还是直接在表中输入记录，只要新记录插入，就会自动更新CustID字段，适合全局自动处理的需求：

• 打开目标表的设计视图
• 切换到顶部菜单栏的「表格工具」→「设计」选项卡，点击「创建数据宏」→「After Insert」
• 在弹出的数据宏编辑器中，添加「更新记录」操作：
  1. 选择「更新当前记录」
  2. 在字段列表里选中CustID，设置其值为："NW" & Format([PK], "000000")
• 点击编辑器左上角的「保存」按钮，关闭编辑器后再保存表结构

这样设置后，任何新插入的记录都会立刻按照规则生成CustID，全程无需人工操作。

方案二：自定义表单的VBA事件（仅表单录入时生效） #

如果你的需求只在操作员通过自定义表单录入记录时生效，可以用表单的事件来实现，分两种情况：

情况1：PK是自动编号字段 #

自动编号的PK会在新记录创建时自动生成，所以用表单的After Insert事件最合适：

• 打开自定义表单的设计视图
• 点击表单左上角的小方块（选中整个表单），打开右侧的「属性表」→「事件」选项卡
• 找到「After Insert」事件，点击右侧的「...」按钮，选择「代码生成器」
• 在VBA编辑器中输入以下代码：

Private Sub Form_AfterInsert()
    ' 按照规则生成CustID
    Me.CustID = "NW" & Format(Me.PK, "000000")
    ' 自动保存修改
    Me.Dirty = False
End Sub

• 保存VBA代码，关闭编辑器后保存表单

情况2：PK是手动输入的字段 #

如果PK需要操作员手动输入，那可以用PK字段的After Update事件，确保用户输入PK后立刻生成CustID：

• 打开表单设计视图，选中PK字段控件
• 打开「属性表」→「事件」选项卡，找到「After Update」事件，点击「...」打开代码生成器
• 输入以下代码：

Private Sub PK_AfterUpdate()
    ' 仅当CustID为空时才更新，避免重复修改
    If IsNull(Me.CustID) Then
        Me.CustID = "NW" & Format(Me.PK, "000000")
    End If
End Sub

• 保存代码和表单即可

注意事项 #

• 确保CustID字段没有设置为只读，否则无法自动更新
• 如果PK是自动编号，要确保表的自动编号字段正常工作，没有被禁用
• 测试时可以手动插入一条记录，检查CustID是否按照NW+6位PK的规则生成

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