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….” 语句结构来处理错误外，还提供了一个对象（