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判断才可以的。

Option Compare Database
Private Sub Command2_Click()
On Error GoTo Errorline
Dim a As String
a = InputBox("请输入数据！", "提示框")
if a<>"" then
MsgBox "您输入的数据是：" & a, 0vbExclamation
exit sub
End if
Errorline:
MsgBox "没有输入数据或单击“取消”按钮", vbCritical, "错误"
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！我是喜欢数据库的新手，以后肯定会提出更多问题，盼望不吝赐教~~~

作者: ilovshevchenko 时间: 2024-11-3 23:50
也顺便学习了

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