请教窗体数据更新问题！

xurui

在我的数据库中有个窗体是主窗体结合子窗体的形式，我希望的是当我修改完主窗体和子窗体中的数据后提示我保存，我用的代码是：

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

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

xurui

所以我向大家请教有什么更好的解决办法可以介绍给我啊！谢谢！

静儿

先将数据保存在临时表中，当点击到新记录时往实际的数据库内做追加，这样行不？