MS Access 新手求教：如何设置更新记录前的确认提示，优先原生方案

优先推荐更原生的实现方式，不需要复杂开发即可满足需求：

方案1：未绑定控件+更新查询（完全原生无复杂代码） #

这是最符合需求的原生方案，从根源上避免输入直接写入表：

• 第一步：将当前绑定到表的所有输入文本框改为未绑定状态：选中文本框，在「属性表-数据-控件来源」中删除原有绑定的表字段即可，此时用户输入内容只会暂存在控件中，不会直接同步到数据库。
• 第二步：新增两个原生命令按钮：
  • 确认保存按钮：使用按钮向导创建「运行查询」类型的按钮，绑定你提前新建的更新查询即可。更新查询的规则设置为：筛选条件为记录ID = [Forms]![你的窗体名]![列表框名]，要更新的字段值分别对应窗体上各个未绑定文本框的值。
  • 重置输入按钮：使用按钮向导创建「清空窗体」类型的按钮，点击即可一键清空所有文本框的未保存内容。
• 第三步：可选配置文本框的「有效性规则」「必填」属性，原生实现输入内容校验，不符合规则的内容无法触发保存。

方案2：绑定控件+窗体更新前确认（仅需3行简单VBA） #

如果不想修改现有绑定逻辑，只用加少量代码即可实现确认机制：

• 打开窗体的属性表，在「事件-更新前」选择「事件过程」，粘贴以下代码：

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If MsgBox("确认保存当前记录的修改吗？选错记录请点「否」放弃修改", vbYesNo + vbQuestion, "操作确认") = vbNo Then
        Cancel = True
        Me.Undo ' 撤销本次所有未保存的修改
    End If
End Sub

• 此时用户任何修改要写入表之前，都会弹出确认提示，点否就会自动恢复原有记录内容，不会误改数据。

可选优化配置 #

• 将列表框的「多选」属性设置为「否」，避免用户误选多条记录
• 可在列表框的「更新后」事件加1行代码，自动将选中记录的已有内容填充到文本框，方便用户核对是否选对记录：Me.文本框名 = DLookup("对应表字段名", "你的表名", "记录ID字段 = " & Me.列表框名)
• 保存操作完成后可加一行提示：MsgBox "记录补全成功"，明确告知用户操作结果。

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