學生信息管理系統刪除最後一條記錄報錯3021

問題原因：

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

解決方法

使用 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.MoveFirst
        mybookmark = mrc.Bookmark
        mrc.MoveLast
        mrc.Delete
        mrc.Bookmark = mybookmark
        '調用函數顯示數據
        Call viewdata
    Else
    mybookmark = mrc.Bookmark
    mrc.MovePrevious
    mrc.Delete
    mrc.Bookmark = mybookmark
  Call viewdata
End If
Else
    mrc.Bookmark = mybookmark
    Call viewdata
End If

error
    MsgBox "無任何信息，請先添加班級信息！", vbOKOnly + vbExclamation, "警告"
    frmModifyclassinfo.Hide
    frmAddclassinfo.Show

On Error GoTo error 表示禁止當前過程中任何已啓動的錯誤處理程序，一直到error結束。 方法不止這一種，但這種方法感覺很方便，好理解，簡單。