学生信息管理系统实时错误3021 解决办法

在修改学生信息管理系统里面的问题的时候， 我遇到的最多问题的 就是 3021了。 删除所有信息之后， 再点击查询 出现3021
再点击 修改也会出现3021
我找到的办法就像 使用 跳转语句 go 。。to

Private Sub previousCommand_Click()
  On Error GoTo 1
        mrc.MovePrevious
    If mrc.BOF Then
      MsgBox "已经是第一条记录了！"
    End If
    Call viewData
1:
  If Error = 3021 Then

  End If

End Sub

大致都 和这个格式差不多。 这样就不会出现3021。

当没有成绩时，点击修改成绩的时候 也会出现问题
Private Sub modifyresultMenu_Click()
Dim txtSQL As String
Dim MsgText As String
Dim mrc As ADODB.Recordset
txtSQL = "select * from result_Info "
Set mrc = ExecuteSQL(txtSQL, MsgText)

If mrc.RecordCount = 0 Then
MsgBox "当前没有记录，请添加记录"
Exit Sub
End If

frmModifyresult.Show

End Sub

这样就可以先提示， 然后 调转到添加成绩的窗体。