在企业中,我们可能面临不同的ACCESS版本用户,这时侯,在查询中使用Replace函数时,问题就出来了:

Access2000版本: Replace函数不能用;

AccessXP/2003版本: Replace函数可以直接用;

目前企业中一般都是安装的OFFICE2000版本,要别人安装高版本是不方便的,特别是要很多人安装高版本那是劳民伤财的事情,如何来解决呢?下面的函数可以在Access2000的查询中使用Replace函数,原理就是写一个自定义函数:

Public Function Rep(RepInThis As String, RepThis As String, RepWithThis As String) As String

    Rep = Replace(RepInThis, RepThis, RepWithThis)

End Function
[本函数引自tmtony(王宇虹,微软MVP)在Office中国上的帖子]

通过调用这个函数,即可在Access2000版本查询中运行。