on error goto出現(xiàn)未定義標簽，請教原因，謝謝！

dorenmi

具體代碼如下：

Option Compare Database

Private Sub Command2_Click()
On Error GoTo Errorline
    Dim a As String
    a = InputBox("請輸入數(shù)據(jù)！", "提示框")
    MsgBox "您輸入的數(shù)據(jù)是：" & a, vbExclamation
End Sub
Errorline:
MsgBox "沒有輸入數(shù)據(jù)或單擊“取消”按鈕", vbCritical, "錯誤"
End Sub

tmtony

多附上 End Sub
把中間的 End Sub 刪除

dorenmi

tmtony 發(fā)表于 2014-11-29 12:25
多附上 End Sub
把中間的 End Sub 刪除

謝謝tmtony的及時答疑！

我試著把中間的end sub取消，但問題出現(xiàn)了，Errorline后面的語句也按順序唄執(zhí)行了！

roych

應該加上If判斷才可以的。

1. Option Compare Database
   
2. Private Sub Command2_Click()
   
3. On Error GoTo Errorline
   
4.     Dim a As String
   
5.     a = InputBox("請輸入數(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, "錯誤"
    
12. End Sub

復制代碼

dorenmi

謝謝roych，看來消化書里的代碼要以批判的態(tài)度學習，~~~~~~

roych

dorenmi 發(fā)表于 2014-11-30 14:02
謝謝roych，看來消化書里的代碼要以批判的態(tài)度學習，~~~~~~

即便沒有出錯時，都會執(zhí)行這一條（錯誤號一般是0），所以設置錯誤提示時，應該以錯誤號來判斷。

dorenmi

roych 發(fā)表于 2014-12-1 09:14
即便沒有出錯時，都會執(zhí)行這一條（錯誤號一般是0），所以設置錯誤提示時，應該以錯誤號來判斷。

謝謝 rochy！我是喜歡數(shù)據(jù)庫的新手，以后肯定會提出更多問題，盼望不吝賜教~~~