MS Access表单保存按钮无错误时显示确认消息可行性问询

这在MS Access里是非常常见且容易实现的需求，我来给你拆解具体操作步骤：

• 首先打开你的表单设计视图，找到那个“保存记录”按钮，右键点击它，选择「事件生成器」（或者直接按Alt+F11打开VBA编辑器，定位到对应表单的按钮事件）。
• 把下面的VBA代码粘贴到按钮的Click事件里：

Private Sub cmdSaveRecord_Click()
    On Error Resume Next ' 开启错误捕获，让代码遇到错误后继续执行
    
    ' 执行保存记录的核心操作
    DoCmd.RunCommand acCmdSaveRecord
    
    ' 判断保存是否成功：Err.Number为0代表没有任何错误
    If Err.Number = 0 Then
        MsgBox "您的贷款已获批", vbInformation, "保存成功"
    Else
        ' 可选操作：如果需要自定义错误提示，取消下面注释即可；否则让Access默认错误提示显示
        ' MsgBox "保存失败：" & Err.Description, vbExclamation, "错误提示"
        Err.Clear ' 清除当前错误状态
    End If
    On Error GoTo 0 ' 恢复Access默认的错误处理机制
End Sub

• 简单解释下代码逻辑：
  • On Error Resume Next让代码跳过错误继续执行，这样我们才能手动检查保存的最终结果；
  • DoCmd.RunCommand acCmdSaveRecord就是触发保存记录的操作，和你原来按钮的默认功能一致；
  • 当Err.Number等于0时，说明记录保存完全成功，这时就会弹出你想要的确认消息框。

设置完成后回到表单视图测试一下：点击保存按钮，只要记录保存无错误，就会准时弹出「您的贷款已获批」的提示啦！

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