学生管理系统删除数据报错3021解决方法

问题源

原因

在学生管理系统中，当我们删除到最后一条信息时，会出现如下报错：

因为当我们删除到最后一条信息的时候，数据库中已经没有信息，所有会报错。

解决方法

    '记下当前记录位置
    mybookmark = mrc.Bookmark
    '提示是否删除
    Str2$ = MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录")
    '判断按钮类型
    On Error GoTo A_error:
    If Str2$ = vbOK Then
        '移动到数据集下一条记录
        mrc.MoveNext
        '判断数据集对象是否为空
        If mrc.EOF Then
            '移动到数据库的第一条记录
            mrc.MoveFirst
            '记载当前记录位置
            mybookmark = mrc.Bookmark
            '移动到最后一条记录
            mrc.MoveLast
            '删除记录
            mrc.Delete
            mrc.Bookmark = mybookmark
            '调用函数显示数据
            Call ViewData
        Else
            '记载当前位置
            mybookmark = mrc.Bookmark
            '移动到前一条记录
            mrc.MovePrevious
            '删除记录
            mrc.Delete
            '回到原来位置
            mrc.Bookmark = mybookmark
            '调用函数显示数据
            Call ViewData
        End If
    Else
        mrc.Bookmark = mybookmark
        Call ViewData '调用显示函数
    End If
A_exit:
    Exit Sub
A_error:
    txtClassno.Text = ""
    comboGrade.Text = ""
    txtDirector.Text = ""
    txtClassroom.Text = ""
    MsgBox "无任何信息！", vbOKOnly + vbExclamation, "警告"
    frmModifyclassinfo.Hide

解决原理：

运用一个GOTO语句，如果数据库中没有内容，然后清空页面显示的内容，然后退出！

结束语：

感谢阅读！
如果有其他方法，欢迎分享！