求助！！！！

xurui

帮我看看这段代码！不能运行！

Private Sub FORM_BeforeUpdate(Cancel As Integer)

    Dim intAns As Integer

   

    intAns = MsgBox("记录已更改,是否覆盖此记录?", vbYesNo + vbQuestion)

    If intAns = vbYes Then

        DoCmd.RunCommand Update

    Else

        DoCmd.GoToRecord , , acNewRec

    End If

   

    blChanged = False

End Sub

谢谢！

mrl

对比一下：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

xurui

我的数据库窗体是主窗体和子窗体结合的形式，现在这段代码只能针对主窗体的变化，当子窗体变化的时候此段代码没有作用，如何使此段代码针对主窗体和子窗体都有效啊！谢谢！