Access开发培训
网站公告
·Access专家课堂QQ群号:151711184    ·Access快速开发平台下载地址及教程    ·欢迎加入Access专家课堂微信群!    ·如何快速搜索本站文章|示例|资料    
您的位置: 首页 > 技术文章 > Access数据库-模块/函数/VBA

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

时 间: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源码网店

常见问答:

技术分类:

相关资源:

专栏作家

关于我们 | 服务条款 | 在线投稿 | 友情链接 | 网站统计 | 网站帮助