在errHandler: 的上面加上 exit subOn Error GoTo errHandler
....
....exit sub
errHandler:
sfsub错误处理 "学生体检", "Frmexam", "Form_Load", 6666, Err.Description, Falsesfsub错误处理是自定义的函数
....
....exit sub
errHandler:
sfsub错误处理 "学生体检", "Frmexam", "Form_Load", 6666, Err.Description, Falsesfsub错误处理是自定义的函数
用F8调试以下看看问题在什么地方?