您的位置：　首页 > 技术文章 > Access数据库-模块/函数/VBA

获取程序的具体错误信息(2)

来源:www.accessoft.com 点击数:3592 　 | 收藏 | 复制

时　间:2017-06-27 08:17:24
作　者:杨雪 ID：42182 城市：南京
摘　要:错误处理及工程安全：Error()函数
正　文:

如果想要根据错误编号获取错误描述，可以使用Error()函数，该函数返回的结果相当于Err对象的Description 属性，具体语法：

Error([错误编号])

如果省略错误编号，就会返回与最近一次运行时错误对应的错误描述，所以可以通过该函数得到程序运行错误时的描述。

编写VBA代码，获取输入数据，输出结果，输入数据不是整数或不能够转换为整数型时，则跳转至打开“您出错了！”消息对话框的代码处，具体如下：

执行过程

保存编写的VBA代码，然后按【F5】键运行“错误消息”过程，如图：

源码：

'显示错误信息
Sub 错误信息()
    '出错时跳转至“行标签”标签
    On Error GoTo 行标签
    Dim Num As Integer
    Num = InputBox("请输入数据：")
    MsgBox "输入数据为：" & Num
    Exit Sub
'设置行标签
行标签:
    '出错时输出错误描述信息
    MsgBox "错误描述：" & Error()
End Sub

Access软件网QQ交流群 (群号:54525238) 　　　　　　Access源码网店

【打印此文】【关闭窗口】