每次出现“空白”后，替换字符串中的第一个字符

Question

我的数据库由全名组成（名字和姓氏） 我创建了一个文本框和一个搜索按钮。 我想自定义我的文本框都将两个“”（空格）写为搜索词后用“ *”替换；如果字母“ A”和“ B”是名字中间名或姓氏的第一个字符，则将它们替换用“”（空白）或将其删除。

我的代码可以用“ *”替换“”（空格），但是如果我希望它继续使用中间名和姓氏，则只会删除名字的第一个字符

enter code here
Private Sub Name_AfterUpdate()

Me!Name = Replace(Me!Name, " ", "*")
If Left(Me!Name, 1) = "A" Or Left(Me!Name, 1) = "B" Then
Me!Name = mid(Me!Name, 2)
End if
End sub

Answer 1

您可以使用以下方法：

Me!Name = "*" & Replace(Trim(Me!Name), " ", "*")
Me!Name = Replace(Me!Name, "*A", "*")
Me!Name = Replace(Me!Name, "*B", "*")
Me!Name = Mid(Me!Name, 2)