Access基础与应用教程课件第8章模块与VBA程序设计.ppt

Cmd1 按钮的单击事件过程的程序代码如下： Private Sub Cmd1_Click() On Error GoTo Errorline 当发生错误时，转去 Errorline: 标号位置执行 Dim a As Integer a = InputBox(输入数据, 提示框) MsgBox a Exit Sub Errorline: 标号 MsgBox 没有输入数据或按“取消”按钮 错误处理程序的语句 End Sub 2．On Error Resume Next 当错误发生时，忽略错误行，继续执行下面的语句，而不停止代码的执行。 也就是说，“On Error Rseume Next” 语句在遇到错误发生时不会考虑错误，并继续执行下一条语句。 3．On Error GoTo 0 当错误发生时，“On Error GoTo 0” 语句用于关闭错误处理，不使用错误处理程序块。 此外，如果没有用 On Error GoTo 语句捕捉错误，或者用 On Error GoTo 0 语句关闭了错误处理，则在错误发生后会出现一个对话框，显示出相应的出错信息。 VBA 编程语言中，除使用 “On Error….” 语句结构来处理错误外，还提供了一个对象（Err）、一个函数Error$() 和一个语句（Error）来帮助了解错误信息。 其中，Err 对象的 number 属性返回错误代码；而Error$() 函数则可以根据错误代码返回错误名称；Error语句的作用是模拟产生错误，以检查错误处理语句的正确性。 例8-35 例8-35 利用 InputBox 函数输入数据时，在 InputBox 对话框中，如果输入数据0并按“确定”按钮，将会产生运行错误，要求使用错误处理代码提示用户，显示错误代码和错误名称。如果不输入数据或直接按“取消”按钮，将会产生运行错误，要求使用错误处理代码提示用户，显示错误代码和错误名称及出错原因，如图8-39和图8-40所示。本例的窗体名称是“例8-35 除数为0错误处理程序”，该窗体中的一个命令按钮的名称是“Cmd1”，该按钮的“标题”是“除数为0错误处理”。另加“Error 12”语句模拟产生错误（即产生错误代码为12的错误情况），当在输入对话框中输入一个非0的数并按“确定”按钮后，再按“确定”按钮，显出如图8-41所示的消息框。 1）Cmd1按钮的单击事件过程的程序代码如下： p391 Private Sub Cmd1_Click() On Error GoTo Errorline 当发生错误时，转去 Errorline: 标号位置执行 Dim a As Integer, b As Single a = InputBox(输入数据0, 提示框) b = 100 / a MsgBox 100/ a 的结果是 b Error 12 这是模拟产生错误例句，实际应用中是不要用它，12是一个错误代码 Exit Sub Errorline: 标号 Select Case Err.Number Case Is = 13 显示错误代码13对应的错误名称及及（用户自定的）出错原因 MsgBox 错误代码是 Err.Number ，错误名称是 Error$(Err.Number) _ ，原因是没有输入数据或按“取消”按钮 Case Is = 12 显示错误代码12对应的错误名称及及（用户自定的）出错原因 MsgBox 错误代码是 Err.Number ，错误名称是 Error$(Err.Number) _ ，这是模拟产生错误例句，可用以查看错误代码对应的错误名称。 Case Else 显示错误代码及错误名称 MsgBox 错误代码是 Err.Number ，错误名称是 Error$(Err.Number) End Select End Sub 例8-35（运行效果图示） 4．函数过程的调用 在表达式中，可以通过使用函数名，并在其后用圆括号给出相应的参数列表来调用一个函数过程。函数过程的调用格式只有一种。 调用格式： 函数过程名([实参1] [, 实参2] [, …]) 例9-23 （函数过程声明与调用例子 ）