實時錯誤『3021』：
bof或eof中有乙個是「真」，或者當前的記錄已被刪除，所需的操作要求乙個當前的記錄
我出現該問題的位置是在修改密碼這個窗體中，在舊密碼輸入不正確然後提醒使用者「原密碼不正確」之後就會出現這個錯誤。
當遇到這個問題時我的解決辦法是運用乙個if語句，讓程式直接進行下一步
'判斷原密碼是否正確
if mrc.eof and mrc.bof then '沒有記錄
msgbox "原密碼不正確或無記錄，請重新輸入！", vbokonly + vbexclamation, "警告"
txtoldpassword.text = ""
txtoldpassword.setfocus
end if
'***********或者
if mrc.recordcount = 0 then
msgbox "原密碼不正確或無記錄，請重新輸入！", vbokonly + vbexclamation, "警告"
exit sub
end if
'判斷原密碼是否正確
if mrc.eof and mrc.bof then '沒有記錄
msgbox "原密碼不正確或無記錄，請重新輸入！", vbokonly + vbexclamation, "警告"
txtoldpassword.text = ""
unload me
else
'新密碼輸入不能為空
if trim(txtnewpassword.text = "") then
msgbox "請輸入新密碼！", vbokonly + vbexclamation, "警告"
txtnewpassword.setfocus
else
'判斷兩次輸入是否一致
if txtpasswordsure.text <> txtnewpassword.text then
msgbox "兩口密碼不一致，請重新輸入！", vbokonly + vbexclamation, "警告"
txtpasswordsure.text = ""
txtpasswordsure.setfocus
else
'修改資料庫中指定的下標字段值
mrc.fields(1) = txtnewpassword.text
mrc.update
mrc.close
msgbox "修改密碼成功！", vbokonly + vbexclamation, "提示"
txtoldpassword.text = ""
txtnewpassword.text = ""
txtpasswordsure.text = ""
end if
end if
end if
bof指當前記錄位置位於recordset物件的第乙個記錄之前
eof指當前記錄位置位於recordset物件的最後乙個記錄之後
bof和eof返回值型別為布林型：
bofeof
true
當前位置在第一行之前，無記錄
當前位置在最後一行之後，無記錄
false
當前位置在第一行或之後，有記錄
當前位置在最後一行或之前，有記錄
機房收費系統之實時錯誤426
今天在敲機房收費系統的登入窗體的時候執行時忽然出現了乙個錯誤，426 其實之前自己在敲學生的時候也遇到過這樣的問題，但是當時自己沒有好好總結，所以在今天又遇到了這個問題，自己挖的不填遲早是要繼續摔跤的。這兩句話的意思是新建乙個frmmain主窗體，但是在vb程式中只能夠存在乙個mdi窗體，不可能存在...
機房收費系統
利用幾乎兩個多禮拜的時間，終於把機房收費系統基本完工了。這個過程中，因為有了學生系統做為鋪墊，所以做的時候還算得心應手吧。在其實也遇到了一引些問題，還是好解決的。這個系統到現在為止，也只能說是基本實現了功能，但是還很不健壯，而且漏洞我想還有很多，還有待進一步的除錯與完善。雖然在敲機房收費系統前，把命...
機房收費系統
利用幾乎兩個多禮拜的時間，終於把機房收費系統基本完工了。這個過程中，因為有了學生系統做為鋪墊，所以做的時候還算得心應手吧。在其實也遇到了一引些問題，還是好解決的。這個系統到現在為止，也只能說是基本實現了功能，但是還很不健壯，而且漏洞我想還有很多，還有待進一步的除錯與完善。雖然在敲機房收費系統前，把命...