CVErr 函数
时 间:2021-11-07 20:00:57
作 者:杨雪 ID:42182 城市:南京
摘 要:返回包含用户指定的 错误号的子类型 Error 的 Variant。
正 文:
CVErr (errornumber)
必需的 errornumber 参数 是任何有效的错误号。
备 注:
使用 CVErr 函数可在用户创建的 过程中创建用户定义的错误。 例如,如果您创建一个可接受多个参数并正常返回一个字符串的函数,则可以让函数计算输入参数以确保它们在可接受的范围内。 如果它们不在可接受的范围内,则您的函数很可能不会返回预期结果。 在此情况下,CVErr 允许您返回一个可告知您应采取何种操作的错误号。
请注意,不允许对 Error 进行隐式转换。 例如,不能直接将 CVErr 的返回值分配给不是 Variant 的 变量。 但是,您可以使用 CInt (CDbl 等对 CVErr 返回的值执行显式转换) ,并将它分配给相应的 数据类型 。
示 例:
此示例使用 CVErr 函数返回其 VarType 是 vbError (10) 的 Variant 。 如果传递给用户定义函数 CalculateDouble 的参数不是数字,则该函数将返回一个错误。 您可以使用 CVErr 返回来自用户定义过程的用户定义错误或推迟处理运行时错误。 使用 IsError 函数测试值是否表示错误。
Private Sub Command8_Click() Debug.Print CalculateDouble("345.45robert") 'Error 2001 End Sub Function CalculateDouble(Number) If IsNumeric(Number) Then CalculateDouble = Number * 2 ' 返回结果. Else CalculateDouble = CVErr(2001) ' 返回用户定义的错误 End If End Function
Access软件网官方交流QQ群 (群号:483923997) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access小作品】简单的待...(04.30)
- 【Access窗体导出PDF】...(04.08)
- 【Access窗体导出PDF】...(04.07)
- Access两种方式实现即时更...(03.01)
- Access隐藏与显示lacc...(01.12)
- 【Access高效办公】将每个...(12.23)
- Access21点游戏源代码(12.13)
- 【Access窗体导出Exce...(11.15)
- 【Access开发】Acces...(11.14)
学习心得
最新文章
- 【Access小作品】简单的待办任...(04.30)
- 从另一个ACCESS数据库批量导入...(04.29)
- Access日期格式的数据导出Ex...(04.28)
- ACCESS精华集锦资料.CHM(04.25)
- Access VBA语句If Me...(04.24)
- 【Access修改记录示例】编辑选...(04.22)
- 【Access表名称命名建议】将A...(04.20)
- Access学习笔记--用Acce...(04.19)
- 【Access重复项查询示例】将A...(04.17)
- Access快速开发平台企业版--...(04.16)