使用replace删除Qry中所有特殊字符的宏 [英] Macro to remove all the special character in Qry using replace

问题描述

大家好，

有没有办法在Ms访问中创建一个宏或模块替换qry中的所有特殊字符。

Hi guys,
Is there a way than i can create a macro or module in Ms access that Replace all the special char in qry.

Replace(Replace(Replace(Replace(Replace([Currency_Contract],"_",""),"@",""),"$",""),"%",""),"!","")

推荐答案

，），％，），！，）

",""),"%",""),"!","")

是的，有...



1.打开MS Access数据库

2.使用ALT + F11打开VBA代码编辑器

3.添加新模块

4.添加功能：

Yes, there is...

1. Open MS Access database
2. Use ALT+F11 to open VBA code editor
3. Add new module
4. Add function:

Function MyReplace(ByVal sInput As String) As String
MyReplace = Replace(Replace(Replace(Replace(Replace(sInput,"_",""),"@",""),"

， ）， ％， ）， ！， ）
结束

",""),"%",""),"!","") End

5.保存模块

6.创建查询：

5. Save module
6. Create query:

SELECT MyReplace([Currency_Contract]) AS Something
FROM TableName

7.保存查询



这就是全部！



有关详细信息，请参阅：

为您的访问应用程序构建自定义函数 [ ^ ]

这篇关于使用replace删除Qry中所有特殊字符的宏的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！