学生信息管理系统（3）——实时错误 ‘3021

非常令人激动的事情来了，又双叒叕遇到了一个错误——实时错误 '3021。虽然解决完问题的那一刻妙不可言，但是解决了一个还会有下一个错误，我累了，谁能让我突然智慧加倍呢，一下解决所有问题，好啦，进入正题啦，伙伴们：

分析
首先我们先来了解一下什么是BOF和EOF：
BOF、EOF属性：
BOF 指示当前记录位置位于 Recordset 对象的第一个记录之前。
EOF 指示当前记录位置位于 Recordset 对象的最后一个记录之后。
返回值：
BOF 和 EOF 属性返回布尔型值。

通过师哥师姐的博客了解到：这个错误一般是出现的情况是在：当系统中还没有添加任何信息的时候，去点击修改信息的时候。（例如：没有添加任何的学籍信息，而且系统之前也没有任何的学籍信息，这个时候去点修改学籍信息，就回出现这种情况）。我当时显示的错误如图所示：

解决方法
我采用的是添加错误处理，仔细看我添加了On Error GoTo dateErr这句，如果有错误就直接执行dateErr那一步，然后是If函数，别忘了写　End If　哦~

Private Sub Form_Load()
    Dim txtSQL As String
    Dim MsgText As String
    
    txtSQL = "select * from student_Info"
    Set mrc = ExecuteSQL(txtSQL, MsgText) '得到student表，并显示出来

    On Error GoTo dateErr '如果有错误直接执行dateErr那一步
        mrc.MoveFirst '游标移动到第一条信息中
        Call viewData '调用函数
            mcbookmark = mrc.Bookmark '做标记
            mcclean = True '文本框无效
dateErr:
    If Err = 3021 Then
        MsgBox "没有数据"
    End If
End Sub

感谢大家阅读，这个问题还有另一种解决办法，有兴趣的可以看一看实时错误 '3021