如可判断子窗体是否被修改过?

petrelai

如题.谢谢!

YXH1969

利用Forms的dirty属性

petrelai

一开始，我也是这样做的，但系统提示说对这属性在此不能应用。

wang1999

这是我刚用在订单录入子窗体中代码，测试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

谢谢！不过这样会不会麻烦了一点，每修改一次，那如果修改的话，那岂不是按个饱？

paul16

请看一下我的思路：
我设定订单的相关表中多一个审核字段，审核后就不能更改数据，未审核前数据可以任意更改，审核后子窗体设为不能更改就可以了！