access手动保存，如果没有保存过，做出提示

想要设置一个功能，记录改动后，需要手动保存，如果没有保存过，做出提示。
在BeforeUpdate里加入以下代码
  If Me.Dirty = True Then
  Dim lngMsg As Long
  lngMsg = MsgBox("Changes have been made, Save Record?", vbYesNoCancel, "Note:")
  Select Case lngMsg
  Case vbNo
  Me.Undo
  Cancel = True
  Case vbCancel
  Cancel = True
  End Select
  End If

问题来了，我设置了一个保存的按钮,运行SaveRecord宏命令来手动保存，但是单击后还是跳出上面的消息框，还是要选择YES NO
也就是说SaveRecord执行时，要先经过BeforeUpdate事件，每次手动保存也都要跳出提示

如何才能实现手动保存时不跳出这个提示？
 
加一个布尔变量，进行判断。如果是1，则直接保存不提示，如果是0则先提示