检查出空格并自动删除

ycxchen

有个“员工”表，表中有“姓名”、“性别”、“地址”、“手机”等字段，请问，用什么代码可以检查出表中每行字段值前面或中间存在空格并自动删除空格呢？

ACMAIN_CHM

INSTR()


******************
*  一切皆有可能  *
******************
.
ACMAIN - Access论坛回贴准则（个人）.
.
同一贴子不回复第二次
.
QQ群 48866293 / 12035577 / 7440532 / 13666209
http://forum.csdn.net/BList/OtherDatabase .
http://www.accessbbs.cn/bbs/index.php .
http://www.accessoft.com/bbs/index.asp .
http://www.access-programmers.co.uk/forums .
http://www.office-cn.net .
.
http://www.office-cn.net/home/space.php?uid=141646 .

chaojianan

字段值前面存在空格的情况
iif(instr(1,"字段"," ",1)=1,ltrim("字段"),"字段")
中间的情况正在考虑。。。

zyp

用replace()

chaojianan

4# zyp

呵呵，replace（），不用考虑啦。

wu8313

是的，在查询中，新建一个列，写入 Replace([字段名]," ","")就可以了。
---------------------------------------------------------------------------
如果需要在窗体的控件输入环节，就自动去掉空格的话，可以使用如下代码(加入到通用模块中)
然后在窗体中的某个控件的更新后事件中调用就可以了
Public Sub replace_instr()
Dim frm As Form
Set frm = Screen.ActiveForm ' 返回指向活动窗体的 Form 对象
'检测当前控件输入中是否包含空格，无论包含几个，都删掉空格
If InStr(1, frm.ActiveControl.Value, " ", 1) > -1 Then
frm.ActiveControl.Value = Replace(frm.ActiveControl.Value, " ", "")
End If

'可以在控件更新后的事件中进行调用
End Sub

ycxchen

十分多谢大家的热心指教,特别是wu8313的详细指点!

ycxchen

如果在查询中，新建一个列，写入 Replace([字段名]," ","")来解决，但表中有4个字段，这样要新建4个列？这样理解对吗？

wu8313

是的。然后删掉原来包含空格的那4列。

蓝天8390

不好意思,我还不会调用模块,哪位高手请教教我吧.