在敲學生的時候，經常出現‘3021’問題，當BOF或EOF中有一個為真時，就會出現’3021‘的錯誤，出現這個問題的原因主要是查找的數據庫當中沒有數據，在修改學籍信息的時候，將所有的數據刪除就報錯，可以添加一個on error goto line 錯誤捕捉語句，出現3021問題的時候彈出提示框提示沒有學籍信息，需要先添加學籍信息，代碼如下：

Private Sub cmddelete_Click()On Error GoTo err'記錄當前記錄位置mybookmark = mrc.Bookmark'提示是否刪除str2$ = MsgBox("是否刪除當前記錄？", vbOKCancel, "刪除當前記錄")'判斷按鈕類型If str2$ = vbOK Then'移動到數據集下一條記錄mrc.MoveNext'判斷數據集對象是否為空If mrc.EOF Then'移動到數據集的第一條記錄mrc.MoveFirst'記載當前記錄的位置mybookmark = mrc.Bookmark'移動到最后一條記錄mrc.MoveLast'刪除記錄mrc.Deletemrc.Bookmark = mybookmark'調用函數顯示數據Call viewdataElse'記載當前位置mybookmark = mrc.Bookmark'移動到前一條記錄mrc.MovePrevious'刪除記錄mrc.Delete'回到原來位置mrc.Bookmark = mybookmark'調用函數顯示數據Call viewdataEnd IfElsemrc.Bookmark = mybookmarkCall viewdataEnd If'錯誤處理 err:If err = 3021 ThenIf mrc.EOF And mrc.BOF ThenMsgBox "當前沒有記錄！", vbOKOnly + vbExclamation, "警告"Elsea = MsgBox("這是最后一條記錄，是否刪除！？", vbOKOnly + vbExclamation, "警告")If a = vbOK ThentxtSID.Text = ""txtName.Text = ""combosex.Text = ""txtTel.Text = ""txtAdress.Text = ""txtcomment.Text = ""ComboClassNo.Text = ""MsgBox "當前無記錄，系統將退出！", vbOKOnly + vbexcalamation, "警告"Unload MeElseExit SubEnd IfEnd IfEnd If End Sub

這樣在將所有的信息刪除之后，就不會再報3021，沒有記錄的時候會退出系統，剛開始認為這樣就可以了，但是后來發現，當我再次點開修改信息這個窗體的時候還是會報3021，所以又在主窗體的菜單欄那塊增加了這些代碼，再點擊修改學籍信息窗體的時候進行判斷，如果數據庫信息為0（mrc.recordcount=0),就報提示框,然后返回添加學籍信息窗體添加信息，代碼如下

Private Sub midifystu_Click()Dim txtsql As StringDim mrc As ADODB.RecordsetDim msgtext As Stringtxtsql = "select * from student_info "Set mrc = ExecuteSQL(txtsql, msgtext)'修改學籍信息的時候沒有信息首先判斷要添加學籍信息If mrc.RecordCount = 0 ThenMsgBox "沒有學籍信息,請先添加學籍信息！", vbOKOnly + vbExclamation, "警告"mrc.CloseSet mrc = Nothingfrmaddsinfo.ShowExit SubElsefrmModifyinfo.ShowEnd IfEnd Sub

總結

以上是生活随笔為你收集整理的学生修改信息之‘3021’问题的全部內容，希望文章能夠幫你解決所遇到的問題。

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