惹不起躲得起--“表达式中函数未定义”错误的解决办法
时 间:2015-06-09 11:16:39
作 者:红尘如烟 ID:10768 城市:成都
摘 要:如何通过“绕道走”的办法解决“表达式中函数未定义”错误
正 文:
表达式中 'left' 函数未定义。 表达式中 'mid' 函数未定义。 表达式中 'right' 函数未定义。
不少人在使用Access的过程中,都遇到了上面这样的表达式中函数未定义错误。可以确定这是Access本身存在的缺陷,但我们不可能去修改Access本身,那么这个问题是不是就无法解决了,我们只能两眼一闭认命了呢?当然不是,有句老话说得好“惹不起我总躲得起”。所以这个问题就是我们征战Access路上的拦路石,而我们只需要绕开这块石头就行了,并不需要把石头搬开甚至炸掉。
根据经验分析,我们可以发现一个有趣的现象:函数未定义错误,都是我们在查询或者其它表达式中使用VBA函数的情况下出现的,而当我们直接在VBA代码中调用的时候,这个问题基本上不会发生(偶有发生也是因为代码或代码的引用不正常,造成所有代码都出现了异常,而并不只是一个函数未定义错误问题),同样我们在查询或其它表达式中使用自定义的函数也没什么问题。
根据这一特点,我们就找到一个“绕道走”的解决办法,那就是我们在模块中自定义一个名称、参数完全一样的自定义函数即可,当然函数本身功能的实现并不需要我们再去绞尽脑汁,只需要简单的再调用一下VBA函数库中的函数即可。这样就相当于,原来是表达式中直接去调用VBA库中的函数会出错,现在变成了表达式中调用了我们自定义的函数,而在自定义函数中再去调用VBA库中的函数。
新建一个模块,如下所示,定义和原来同样结构的函数即可:
Public Function Left(Expression As Variant, Length As Long) As Variant Left = VBA.Left(Expression, Length) End Function Public Function Right(Expression As Variant, Length As Long) As Variant Right = VBA.Right(Expression, Length) End Function Public Function Mid(Expression As Variant, Start As Long, Optional Length As Variant) As Variant Mid = VBA.Mid(Expression, Start, Length) End Function
需要说明的是,原来这3个函数的第1个参数名称是String,但由于String是保留关键字,我们不能用,所以这里换成了Expression,不过参数名称只要顺序、数据类型一样就行,名称不同没有任何影响。
Access软件网官方交流QQ群 (群号:54525238) Access源码网店
常见问答:
技术分类:
源码示例
- 【源码QQ群号19834647...(12.17)
- 【Access选项卡示例】Ac...(09.09)
- 【Access源码示例】按输入...(09.02)
- 【Access日期区间段查询】...(08.29)
- 【Access日期区间段查询】...(08.27)
- Access怎样才能实现日期时...(08.21)
- 【Access定时打开查询】A...(08.19)
- Access生成固定数量的记录...(08.13)
- Access怎样才能实现日期时...(08.12)
- Access利用导航窗体控件对...(08.03)
学习心得
最新文章
- Access表中的字段名、字段标题...(09.19)
- Access快速开发平台--更改“...(09.18)
- 【中秋及国庆优惠】Access培训...(09.15)
- Access如何将日期型的数值转换...(09.14)
- 英文输入法输入数据中存在单引号引起...(09.11)
- 【Access选项卡示例】Acce...(09.09)
- 让Access光标停留在指定的控件...(09.07)
- 关于Access查询条件里使用通配...(09.06)
- Access报表偷懒制作法--Ac...(09.05)
- Access快速开发平台--窗体数...(09.04)