[原创]运行时错误2501

flybutt2

我用下列这段代码删除一些信息，当弹出第一个消息框时，点击确定，为什么马上又出来系统的消息框呢？如果这时点击确定还可以删除，如点击取消，则出现 “运行时错误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

谁能帮帮我呢？

andymark

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

谢谢andymark版主，问题解决了，多谢多谢。我的水平不高，可是还要完成任务，所以出了好多的低级问题，多谢论坛提供的帮助。