access添加数据前先询问是否保存到数据表

在access中，可以直接设置记录源绑定到窗体

这样就可以不用一句代码，直接把数据添加到表

当然这样的坏处就是当用户还不确定是否保存时，系统也会自动保存数据到表格中

通过下面的代码，在插入之前先提示是否要添加到表

Private Sub cmd_新增_Click()

  DoCmd.GoToRecord , , acNewRec

End Sub

Private Sub Form_BeforeInsert(Cancel As Integer)

  Dim MsgInsert As Integer

  MsgInsert = MsgBox("是否需要添加新的记录？", vbOKCancel)

  If MsgInsert = vbCancel Then

      Cancel = True       '如果选择“取消”按钮，则不追加记录

  End If

End Sub