Office中国论坛/Access中国论坛

标题: on error goto出现未定义标签，请教原因，谢谢！ [打印本页]

---

作者: dorenmi    时间: 2014-11-29 12:20
标题: on error goto出现未定义标签，请教原因，谢谢！
具体代码如下：

Option Compare Database

Private Sub Command2_Click()
On Error GoTo Errorline
    Dim a As String
    a = InputBox("请输入数据！", "提示框")
    MsgBox "您输入的数据是：" & a, vbExclamation
End Sub
Errorline:
MsgBox "没有输入数据或单击“取消”按钮", vbCritical, "错误"
End Sub

---

作者: tmtony    时间: 2014-11-29 12:25
多附上 End Sub
把中间的 End Sub 删除

---

作者: dorenmi    时间: 2014-11-29 12:30

tmtony 发表于 2014-11-29 12:25
多附上 End Sub
把中间的 End Sub 删除

谢谢tmtony的及时答疑！

我试着把中间的end sub取消，但问题出现了，Errorline后面的语句也按顺序呗执行了！

---

作者: roych    时间: 2014-11-29 13:40
应该加上If判断才可以的。

1. Option Compare Database
   
2. Private Sub Command2_Click()
   
3. On Error GoTo Errorline
   
4.     Dim a As String
   
5.     a = InputBox("请输入数据！", "提示框")
   
6. if a<>"" then
   
7.     MsgBox "您输入的数据是：" & a, 0vbExclamation
   
8. exit sub
   
9. End if
   
10. Errorline:
    
11. MsgBox "没有输入数据或单击“取消”按钮", vbCritical, "错误"
    
12. End Sub

复制代码

---

作者: dorenmi    时间: 2014-11-30 14:02
谢谢roych，看来消化书里的代码要以批判的态度学习，~~~~~~

---

作者: roych    时间: 2014-12-1 09:14

dorenmi 发表于 2014-11-30 14:02
谢谢roych，看来消化书里的代码要以批判的态度学习，~~~~~~

即便没有出错时，都会执行这一条（错误号一般是0），所以设置错误提示时，应该以错误号来判断。

---

作者: dorenmi    时间: 2014-12-1 11:10

roych 发表于 2014-12-1 09:14
即便没有出错时，都会执行这一条（错误号一般是0），所以设置错误提示时，应该以错误号来判断。

谢谢 rochy！我是喜欢数据库的新手，以后肯定会提出更多问题，盼望不吝赐教~~~

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3