标题: 如可判断子窗体是否被修改过? [打印本页] 作者: petrelai 时间: 2004-3-30 00:41 标题: 如可判断子窗体是否被修改过? 如题.谢谢!作者: YXH1969 时间: 2004-3-30 20:30
利用Forms的dirty属性作者: petrelai 时间: 2004-3-30 21:19
一开始，我也是这样做的，但系统提示说对这属性在此不能应用。作者: wang1999 时间: 2004-3-30 22:15
这是我刚用在订单录入子窗体中代码，测试OK！请把它贴在子窗体后
Private Sub Form_BeforeUpdate(Cancel As Integer)
Dim intAns As Integer
On Error Resume Next
intAns = MsgBox("记录已更改,你要保存吗?", vbYesNo + vbQuestion)
If intAns = vbNo Then
Cancel = True '取消窗体数据更新
DoCmd.RunCommand acCmdUndo '执行Undo操作，使记录回到未变更状态
End If
End Sub 作者: petrelai 时间: 2004-3-30 22:29
谢谢！不过这样会不会麻烦了一点，每修改一次，那如果修改的话，那岂不是按个饱？作者: paul16 时间: 2004-3-31 03:59
请看一下我的思路：
我设定订单的相关表中多一个审核字段，审核后就不能更改数据，未审核前数据可以任意更改，审核后子窗体设为不能更改就可以了！