《Access基础与应用教程（2010版）》第8章模块与VBA程序设计.ppt

1．On Error GoTo标号 当错误发生时，直接跳转到语句标号位置所示的错误处理代码。一般标号之后都是安排错误处理程序。 例8-34 利用 InputBox 函数输入数据时，在 InputBox 对话框中，如果不输入数据或直接按“取消”按钮，将会产生运行错误，要求使用错误处理代码提示用户，显示错误提示对话框。本例中，窗体名称是“例8-34 错误处理程序”，该窗体中的一个命令按钮的名称是“Cmd1”，该按钮的“标题”属性值是“测试错误处理”。 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” 语句在遇到错误