office交流网--QQ交流群号

Access培训群:792054000         Excel免费交流群群:686050929          Outlook交流群:221378704    

Word交流群:218156588             PPT交流群:324131555

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

2020-07-01 08:00:00
tmtony8
原创
104

在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


    分享