Office中国论坛/Access中国论坛

标题: 如何在窗体关闭时不保存 [打印本页]

作者: haemon 时间: 2008-1-22 20:50
标题: 如何在窗体关闭时不保存
如题?该怎么才可以?

作者: rjacky 时间: 2008-1-22 20:59
如果是单一的绑定窗体，在关闭事件中写入 if me.dirty then DoCmd.DoMenuItem acFormBar, acEditMenu, acUndo, , acMenuVer70

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

作者: haemon 时间: 2008-1-22 21:51
为什么我窗体明明修改过了,为什么DIRTY属性还是FALSE呢?

作者: rjacky 时间: 2008-1-22 21:56
非绑定控件的改变不会引发dirty

作者: haemon 时间: 2008-1-22 21:59
是绑定的~~~~~~~~~~

作者: rjacky 时间: 2008-1-22 22:05
上传例子看看

作者: haemon 时间: 2008-1-22 22:05
甚至地触发了ONDIRTY事件的时候出来的DIRTY属性也是FALSE,晕死

作者: haemon 时间: 2008-1-22 23:01
从其它地方抄来这样的:
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 时间: 2008-1-22 23:04
[attach]28172[/attach]

作者: haemon 时间: 2008-1-29 22:21
终于找到答案了,希望对大家有所帮助

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

作者: lixun005 时间: 2008-3-24 13:19
谢谢,找个半天了,哈哈!

作者: lucascott 时间: 2009-8-22 04:52
good

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)