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