学生信息管理系统当数据库无记录时报错3021

问题类型： 当没有在添加信息窗体添加任何信息时直接跳转到修改信息窗体时报错3021

问题原因：

当时数据库还没有任何记录，报错。

解决方法：

先判断一下，是否存在记录

代码展示：

在FrmMain 窗体中的添加以下（以修改学籍信息为例）

Private Sub modifysinfo_Menu_Click()
    Dim txtSQL As String
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    txtSQL = "select * from student_info "
    Set mrc = ExecuteSQL(txtSQL, MsgText)
'修改学籍信息的时候没有信息首先判断要添加学籍信息
 If mrc.RecordCount = 0 Then
    MsgBox "没有学籍信息,请先添加学籍信息！", vbOKOnly + vbExclamation, "提示"
    mrc.Close
    Set mrc = Nothing
    frmAddsinfo.Show
    Exit Sub
   Else
   frmModifysinfo.Show
End If


End Sub

这个问题可以配和删除最后一条记录报错使用。