表达式中 '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,不过参数名称只要顺序、数据类型一样就行,名称不同没有任何影响。