晕了，这段代码怎么运行不正确呢？

李志能　发表于：2018-11-17 11:46:50 　

'去除文本尾部空格和标点符号
Dim ttt As String
Me!签证内容 = Trim(Me!签证内容)
ttt = Right(Me!签证内容, 1)

If ttt = "，" Or (ttt = "。" Or (ttt = "；" Or (ttt = "," Or (ttt = "." Or ttt = ";")))) Then Me!签证内容 = Left(Me!签证内容, Len(Me!签证内容) - 1)

得不到想要的效果。

天马行空发表于：2018-11-17 12:02:23

没发现有问题，完全复制你的代码，测试正常

如果标点符号前面还有空格，那么空格是去不掉的

李志能发表于：2018-11-18 09:56:58

是我把代码放到另一个if里面了，还给我改成正则也不出来

总记录：2篇页次：1/1 9 1 :

Access交流中心