在学习 Access数据库 ,根据教程做一个考勤管理系统 ,在做窗体的时候遇到了一些问题,在网上也没找到答案,不过还好最终解决了,把这个过程记录下来,其实就是一个窗体关闭按钮的VBA代码及其分析,怕自己忘了所以记录下来,不在详细整理了,直接把代码和注释复制过来了。
主要就是涉及到错误处理的过程。我在注释中写了。仔细看应该可以。
Private Sub 关闭窗体_Click()
'错误跳转语句 如果在运行这个过程的时候出现错误 则跳转到GoTo后面标签的那一行 此处标签名字为:Err_关闭窗体_Click
'On Error 语句是用来启动一个错误处理程序 并指定该子程序在一个过程中的位置 同时也可以出来禁止一个已经启动的错误处理程序
'一个“允许的”错误处理程序是由 On Error 语句打开的一个处理程序;一个“活动的”错误处理程序是处理错误的过程中允许的错误处理程序。
On Error GoTo Err_关闭窗体_Click
'关闭窗体的语句
DoCmd.Close
'一直不太清除 Exit_关闭窗体_Click这个用法 是怎么回事 固定的语法结构吗?
'哈哈 找到了 在任何过程中,一旦错误处理程序处理了错误,在当前过程中就会从 Resume 语句指定的位置恢复运行。
Exit_关闭窗体_Click:
Exit Sub
Err_关闭窗体_Click:
'MsgBox Err.Description 用来告诉你错误信息
MsgBox Err.Description
'找到了 在任何过程中,一旦错误处理程序处理了错误,在当前过程中就会从 Resume 语句指定的位置恢复运行。
Resume Exit_关闭窗体_Click
End Sub