Office中国论坛/Access中国论坛

标题: 求助！！！！ [打印本页]

作者: xurui 时间: 2004-10-18 21:47
标题: 求助！！！！
帮我看看这段代码！不能运行！

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 时间: 2004-10-19 03:05
对比一下：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 时间: 2004-10-20 01:02
我的数据库窗体是主窗体和子窗体结合的形式，现在这段代码只能针对主窗体的变化，当子窗体变化的时候此段代码没有作用，如何使此段代码针对主窗体和子窗体都有效啊！谢谢！

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