如何设置子窗体（数据表）下的数据增加或更改不默认保存，要按钮保存或者提示保存？

pwj2009

如何设置子窗体（数据表）下的数据增加或更改不默认保存，要按钮保存或者提示保存？

chaojianan

在子窗体的
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("数据已更改，是否要保存！", vbOKCancel, Me.Caption) = vbOK Then
Else
Me.Undo
End If

End Sub
试试。

pwj2009

提示是有了但功能用不了。（我没有加最上那一行因为已经有好多代码。二次定义重复）这样应该怎样处理，

chaojianan

二次定义重复，去掉一个定义。

pwj2009

[url=http://www.office-cn.net/vvb/redirect.php?

goto=findpost&pid=505601&ptid=79213]4#[/url] chaojianan
但那个定义是有用的。能不去掉定义的情况下解决吗

pwj2009

哦，明白了。我用 DIM定义就是，谢谢了！