Office中国论坛/Access中国论坛

标题: [原创]运行时错误2501 [打印本页]

作者: flybutt2 时间: 2006-10-5 10:46
标题: [原创]运行时错误2501
我用下列这段代码删除一些信息，当弹出第一个消息框时，点击确定，为什么马上又出来系统的消息框呢？如果这时点击确定还可以删除，如点击取消，则出现 “运行时错误2501”，然后让调试。调试时显示下面代码中出现了红色部分。
请问大虾：为什么会出现这种情况？如何取消第二个消息框？<br >
Private Sub Command63_Click()
On Error GoTo Err_Command63_Click
Dim strMessage As String
Dim intOptions As Integer
Dim bytChoice As Byte
Const conAppname = "信息管理系统"
strMessage = "你将删除所有相关信息，继续么?"
intOptions = vbQuestion + vbOKCancel
bytChoice = MsgBox(strMessage, intOptions, conAppname)

If bytChoice = vbCancel Then
Cancel = -1
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
Exit_Command63_Click:
Exit Sub

Err_Command63_Click:
MsgBox Err.Description
Resume Exit_Command63_Click

End Sub

作者: flybutt2 时间: 2006-10-6 02:21
谁能帮帮我呢？

作者: andymark 时间: 2006-10-6 04:54
Dim strMessage As String
Dim intOptions As Integer
Dim bytChoice As Byte
Const conAppname = "信息管理系统"
strMessage = "你将删除所有相关信息，继续么?"
intOptions = vbQuestion + vbOKCancel
bytChoice = MsgBox(strMessage, intOptions, conAppname)

If bytChoice = vbCancel Then
Cancel = -1
Else
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings True
End If

作者: flybutt2 时间: 2006-10-6 18:19
谢谢andymark版主，问题解决了，多谢多谢。我的水平不高，可是还要完成任务，所以出了好多的低级问题，多谢论坛提供的帮助。

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