如何在窗体关闭时不保存

haemon

如题?该怎么才可以?

rjacky

如果是单一的绑定窗体 ，在关闭事件中写入 if me.dirty then DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

如果是主子窗体，要用临时表

haemon

为什么我窗体明明修改过了,为什么DIRTY属性还是FALSE呢?

rjacky

非绑定控件的改变不会引发dirty

haemon

是绑定的~~~~~~~~~~

rjacky

上传例子看看

haemon

甚至地触发了ONDIRTY事件的时候出来的DIRTY属性也是FALSE,晕死

haemon

从其它地方抄来这样的:
Private Sub Form_BeforeUpdate(Cancel As Integer)
    If Me.Dirty Then
        If MsgBox("保存吗?", vbOKCancel) = vbCancel Then
            Cancel = True
        End If
    End If
End Sub
但是在关闭窗体时会出现出错提示. 保存倒是不保存了

haemon

haemon

终于找到答案了,希望对大家有所帮助

Private Sub FORM_BeforeUpdate(Cancel As Integer)
　 　　If MsgBox("保存吗?", vbYesNo, Me.Caption) <> vbYes Then
　 　　　　Cancel = True　 　　
           End If　
End Sub　   
' 去除系统的报错信息:　
Private Sub FORM_Error(DataErr As Integer, Response As Integer)
　 　　Response = acDataErrContinue
End Sub