代码解读

linjie663348

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

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

为什么要加上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

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

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

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