来自：微软  翻译：周芳

【译文】如何在保存一个记录前提示用户

 

      下面的例子说明了如何使用BeforeUpdate事件提示用户确认他们每次保存一条记录在一个表单时里的变化。

      VBA代码：

Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim strMsg As String
   Dim iResponse As Integer
 
   ' 指定要显示的消息.
   strMsg = "你想要保存更改吗?" & Chr(10)
   strMsg = strMsg & "单击Yes以保存或没有放弃更改."
 
   ' 显示消息框.
   iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "保存记录?")
   
   ' 检查用户的响应.
   If iResponse = vbNo Then
   
      ' 撤消修改.
      DoCmd.RunCommand acCmdUndo
 
      ' 取消更新.
      Cancel = True
   End If
End Sub 

原文：How to: Prompt a User Before Saving a Record

      The following example illustrates how to use the BeforeUpdate event to prompt users to confirm their changes each time they save a record in a form.

VBA
Private Sub Form_BeforeUpdate(Cancel As Integer)
   Dim strMsg As String
   Dim iResponse As Integer
 
   ' Specify the message to display.
   strMsg = "Do you wish to save the changes?" & Chr(10)
   strMsg = strMsg & "Click Yes to Save or No to Discard changes."
 
   ' Display the message box.
   iResponse = MsgBox(strMsg, vbQuestion + vbYesNo, "Save Record?")
   
   ' Check the user's response.
   If iResponse = vbNo Then
   
      ' Undo the change.
      DoCmd.RunCommand acCmdUndo
 
      ' Cancel the update.
      Cancel = True
   End If
End Sub