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

时　间: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，不过参数名称只要顺序、数据类型一样就行，名称不同没有任何影响。