問題原因：

當我們刪除最后一條記錄是由于數據庫已經沒有記錄了，報錯。

解決方法

使用 On Error GOTo 可以解決這個問題

具體代碼以修改學籍信息為例：

Dim Str2$ '記下當前位置 mybookmark = mrc.Bookmark '提示是否刪除 Str2$ = MsgBox("是否刪除當前記錄？", vbOKCancel, "刪除當前記錄") '判斷按鈕類型 On Error GoTo error If Str2$ = vbOK Then'移動到數據集下一條記錄mrc.MoveNext'判斷數據是否為空If mrc.EOF Then'移動到數據集的第一條記錄mrc.MoveFirstmybookmark = mrc.Bookmarkmrc.MoveLastmrc.Deletemrc.Bookmark = mybookmark'調用函數顯示數據Call viewdataElsemybookmark = mrc.Bookmarkmrc.MovePreviousmrc.Deletemrc.Bookmark = mybookmarkCall viewdata End If Elsemrc.Bookmark = mybookmarkCall viewdata End IferrorMsgBox "無任何信息，請先添加班級信息！", vbOKOnly + vbExclamation, "警告"frmModifyclassinfo.HidefrmAddclassinfo.Show On Error GoTo error 表示禁止當前過程中任何已啟動的錯誤處理程序，一直到error結束。 方法不止這一種，但這種方法感覺很方便，好理解，簡單。

總結

以上是生活随笔為你收集整理的学生信息管理系统删除最后一条记录报错3021的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。