Office中國論壇/Access中國論壇

標(biāo)題: on error goto出現(xiàn)未定義標(biāo)簽，請(qǐng)教原因，謝謝！ [打印本頁]
作者: dorenmi    時(shí)間: 2014-11-29 12:20
標(biāo)題: on error goto出現(xiàn)未定義標(biāo)簽，請(qǐng)教原因，謝謝！
具體代碼如下：

Option Compare Database

Private Sub Command2_Click()
On Error GoTo Errorline
    Dim a As String
    a = InputBox("請(qǐng)輸入數(shù)據(jù)！", "提示框")
    MsgBox "您輸入的數(shù)據(jù)是：" & a, vbExclamation
End Sub
Errorline:
MsgBox "沒有輸入數(shù)據(jù)或單擊“取消”按鈕", vbCritical, "錯(cuò)誤"
End Sub
作者: tmtony    時(shí)間: 2014-11-29 12:25
多附上 End Sub
把中間的 End Sub 刪除
作者: dorenmi    時(shí)間: 2014-11-29 12:30
tmtony 發(fā)表于 2014-11-29 12:25
多附上 End Sub
把中間的 End Sub 刪除

謝謝tmtony的及時(shí)答疑！

我試著把中間的end sub取消，但問題出現(xiàn)了，Errorline后面的語句也按順序唄執(zhí)行了！
作者: roych    時(shí)間: 2014-11-29 13:40
應(yīng)該加上If判斷才可以的。
  1. Option Compare Database
  2. Private Sub Command2_Click()
  3. On Error GoTo Errorline
  4.     Dim a As String
  5.     a = InputBox("請(qǐng)輸入數(shù)據(jù)！", "提示框")
  6. if a<>"" then
  7.     MsgBox "您輸入的數(shù)據(jù)是：" & a, 0vbExclamation
  8. exit sub
  9. End if
  10. Errorline:
  11. MsgBox "沒有輸入數(shù)據(jù)或單擊“取消”按鈕", vbCritical, "錯(cuò)誤"
  12. End Sub
復(fù)制代碼
作者: dorenmi    時(shí)間: 2014-11-30 14:02
謝謝roych，看來消化書里的代碼要以批判的態(tài)度學(xué)習(xí)，~~~~~~
作者: roych    時(shí)間: 2014-12-1 09:14
dorenmi 發(fā)表于 2014-11-30 14:02
謝謝roych，看來消化書里的代碼要以批判的態(tài)度學(xué)習(xí)，~~~~~~

即便沒有出錯(cuò)時(shí)，都會(huì)執(zhí)行這一條（錯(cuò)誤號(hào)一般是0），所以設(shè)置錯(cuò)誤提示時(shí)，應(yīng)該以錯(cuò)誤號(hào)來判斷。
作者: dorenmi    時(shí)間: 2014-12-1 11:10
roych 發(fā)表于 2014-12-1 09:14
即便沒有出錯(cuò)時(shí)，都會(huì)執(zhí)行這一條（錯(cuò)誤號(hào)一般是0），所以設(shè)置錯(cuò)誤提示時(shí)，應(yīng)該以錯(cuò)誤號(hào)來判斷。

謝謝 rochy！我是喜歡數(shù)據(jù)庫的新手，以后肯定會(huì)提出更多問題，盼望不吝賜教~~~
作者: ilovshevchenko    時(shí)間: 2024-11-3 23:50
也順便學(xué)習(xí)了



歡迎光臨 Office中國論壇/Access中國論壇 (http://m.mzhfr.cn/) Powered by Discuz! X3.3