Office中国论坛/Access中国论坛

标题: 代码解读 [打印本页]

作者: linjie663348 时间: 2011-11-5 09:10
标题: 代码解读
private sub cmdadd_click()
on error goto err_cmdadd_click
docmd.gotorecord , , acnewrec
exit_cmdadd_click:
exit sub
err_cmdadd_click:
msgbox err.description
resume exit_cmdadd_click
end sub
其中on error goto err_cmdadd_click这一句是当有错误时，转到 err_cmdadd_click
那exit_cmdadd_click:是什么意思？
resume exit_cmdadd_click这一句又是什么意思？
这一段代码能帮我解释一下吗？谢谢

作者: kangking 时间: 2011-11-5 10:13
private sub cmdadd_click()
on error goto err_cmdadd_click       '如果发生错误，程序转到标识为err_cmdadd_click的位置继续执行
docmd.gotorecord , , acnewrec       '转到一条新记录（新增记录）
exit_cmdadd_click:                         '一个程序标识，可以看成是一个程序的入口（一般以冒号结尾的是程序入口标识）
exit sub                                        '退出过程
err_cmdadd_click:                         '一个程序标识
msgbox err.description                   '显示错误文本
resume exit_cmdadd_click             '转到标识为exit_cmdadd_click的位置继续执行
end sub                                        '结束过程

作者: linjie663348 时间: 2011-11-5 15:16
为什么要加上exit_cmdadd_click:  这一句？
这样行吗？
private sub cmdadd_click()
on error goto err_cmdadd_click
docmd.gotorecord , , acnewrec
err_cmdadd_click:
msgbox err.description
end sub

exit_cmdadd_click这一句的作用？

作者: wu8313 时间: 2011-11-6 10:02
本帖最后由 wu8313 于 2011-11-6 10:03 编辑

linjie663348 发表于 2011-11-5 15:16
为什么要加上exit_cmdadd_click: 这一句？
这样行吗？
private sub cmdadd_click()

注意看 exit_cmdadd_click 这一句后面有一个冒号(并且冒号后面没有任何内容)。

那就表明它是一个标签或标记，表明会有其他代码指向这个地方。在本例中，就是这句代码 resume exit_cmdadd_click 指向了这个标签。

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