Office中国论坛/Access中国论坛

标题: 请教窗体数据更新问题！ [打印本页]

作者: xurui 时间: 2004-11-1 19:13
标题: 请教窗体数据更新问题！
在我的数据库中有个窗体是主窗体结合子窗体的形式，我希望的是当我修改完主窗体和子窗体中的数据后提示我保存，我用的代码是：

Private Sub Form_BeforeUpdate(Cancel As Integer)

Dim intAns As Integer

On Error Resume Next

intAns = MsgBox("记录已更改,你要保存吗?", vbYesNo + vbQuestion)

   if intAns = vbNo Then

      DoCmd.RunCommand acCmdUndo  '执行Undo操作，使记录回到未变更状态



Else

      DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70 '执行保存记录

End If

End Sub

我将这段代码添加在主窗体中，现在当主窗体中的数据修改后就提示我保存，而此时子窗体的记录没有修改，我希望的是能够主窗体和子窗体中的记录都修改完了后才提示我是否保存，请问我该如何来处理，谢谢！

作者: swo 时间: 2004-11-1 21:51
主窗体一条记录更新就会提示一次，而你的子窗体如果是数据表的话，那不是每更新一条都得提示一次？会不会有些烦？

作者: xurui 时间: 2004-11-1 22:21
所以我向大家请教有什么更好的解决办法可以介绍给我啊！谢谢！

作者: 静儿 时间: 2004-11-2 00:58
先将数据保存在临时表中，当点击到新记录时往实际的数据库内做追加，这样行不？

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