ＢＯＦ或ＥＯＦ中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

已被删除，所需的操作要求一个当前的记录。"/>

ＢＯＦ或ＥＯＦ中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

　　做学生管理系统是，会一直弹出一个对话框就是：

　运行时错误’３０２１‘；　ＢＯＦ或ＥＯＦ中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。

　它几乎无所不在，它的意思很简单就是，它需要数据时，没有数据可用了。

　一般来讲，学生管理系统，就有２个地方最容易出现这个问题。

　第一个：编码错了

If mrc.EOF = False　Thenmrc.MoveFirstmybookmark = mrc.Bookmarkmrc.MoveLastmrc.Deletemybookmark = mrc.BookmarkCall Viewdata
End If

  这时就会出现这个错误，因为倒数第三句，它找不到该书签，没有数据让它用了，那么就要改为：

 If mrc.EOF Thenmrc.MoveFirst 　　　　　　mybookmark = mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark = mybookmarkCall ViewdataEnd If

     第二种情况就是：它确实没有数据了。

  这种情况很常见，因为毕竟，当你删除了最后一条记录，就没有数据可用了。

  那么我们就来编码一下cancelcommand的代码，让她给一个提示，告诉我们最后一条记录了，删除后，就没有记录。

  （1）这样分为二种情况：一种是正好最后一条记录（但是记录不只有一条），第二种情况就是：有且仅有一条记录，首先要判断出来

 （2）这样就用到了2个if语句，第一个先要判断是不是最后一条记录；第一个要判断的是有却仅有一条记录的，我们要让所有的按钮都不能用|（这样就不会出现这样的错误）。并提示无记录。

 
 
Private Sub deleteCommand_Click()mybookmark = mrc.Bookmarkstr2$ = MsgBox("确认是否要删除？", vbOKCancel, "删除当前数据")　　　　　　　　　　If str2$ = vbOK Thenmrc.MoveNextIf mrc.EOF Then‘分为２种情况：一种是是最后一条记录（但不只一条记录）；一种是有且仅有一条记录mrc.MovePreviousmrc.MovePrevious
            If mrc.BOF Then　‘有且仅有一条记录的情况的处理mrc.MoveNextmrc.DeleteMsgBox "最后一条记录已经删除！", vbOKOnly + vbExclamation, "警告"txtCourseno.Text = ""txtCoursename.Text = ""comboCoursetype.Text = ""txtCoursedes.Text = ""Frame2.Enabled = FalsefirstCommand.Enabled = FalsepreviousCommand.Enabled = FalselastCommand.Enabled = FalsenextCommand.Enabled = FalsetxtCourseno.Enabled = FalsetxtCoursename.Enabled = FalsecomboCoursetype.Enabled = FalsetxtCoursedes.Enabled = FalseeditCommand.Enabled = FalseupdateCommand.Enabled = FalsecancelCommand.Enabled = FalsedeleteCommand.Enabled = FalseElse‘有很多条记录，但正好删的是第一条记录的处理            mrc.MoveFirstmybookmark = mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark = mybookmarkCall ViewdataEnd IfElse　　　　　　　　　　　　　　　　‘有很多条记录也不是最后一条记录的处理'mrc.MoveNextmybookmark = mrc.Bookmarkmrc.MovePreviousmrc.Deletemrc.Bookmark = mybookmarkCall ViewdataEnd IfElse　　　　　　　　　　　　　　　　　　　‘不删除的处理mrc.Bookmark = mybookmarkCall ViewdataEnd If
End if