惹不起躲得起--“表达式中函数未定义”错误的解决办法-红尘如烟
Access软件网QQ交流学习群(群号码198465573),欢迎您的加入!
首页 >技术文章> Access数据库-模块/函数/VBA


惹不起躲得起--“表达式中函数未定义”错误的解决办法

发表时间:2015/6/9 11:16:39 评论(3) 浏览(106620)  评论 | 加入收藏 | 复制
   
摘 要:如何通过“绕道走”的办法解决“表达式中函数未定义”错误
正 文:

表达式中 '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群(群号:198465573)
 
 相关文章
[分享]关于Left和Left$ 等的区别  【海狸先生  2005/8/10】
LEFT JOIN 用法一点心得  【andymark  2008/11/29】
[access查询]Left(),Mid(),Right()和Re...  【caoguangyao  2009/4/26】
access中LEFT函数未定义的解决方案\表达式中'left'函...  【麥田  2012/7/3】
使用left join比直接使用where速度快的原因  【宏鹏(转载)  2014/5/7】
常见问答
技术分类
相关资源
文章搜索
关于作者

红尘如烟

文章分类

文章存档

友情链接