如何实现保存前提示？如何在保存前校验数据？

作者：cg1 摘自：access911.net 录入：cg1 时间：2003-9-21 浏览人次：1168

专题地址：http://access911.net/index.asp?u1=a&u2=78FABE1E13DC 如果需要更详细的评论或说明，请点击该地址。

简述：如何实现保存前提示？如何在保存前校验数据？《窗体》

问题：

在ACCESS中，文本框或者其他控件是和数据库中的表邦定在一起的。当我们文本控
件里输入数据后，输入的数据会自动的存入表中。有没有方法：要控件和数据库中
的表是邦定的,但是文本控件里面的数据要在按"保存"按钮后数据才存入数据表中,
而不要自动存入数据库。

回答：

将下列代码加入窗体

Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Dirty = True Then
        '先校验数据，比如
        'IF Len(姓名.Value) = 0 Then
        '    MsgBox "姓名必须填写"
        '    Cancel=True
        '    Exit Sub
        'End IF
        '提示用户，是否要保存
        Dim lngMsg As Long
        lngMsg = MsgBox("是否要保存数据", vbYesNoCancel, "提示你")
        Select Case lngMsg
        Case vbNo
        .....................
...........