在每次出现 "blank space" 之后替换字符串中的第一个字符

Replacing the first Characters in a string after Each occurrence of "blank space"

我有一个包含全名(名字和姓氏)的数据库 我创建了一个文本框和一个搜索按钮。 我想自定义我的文本框 在写入搜索词后将每个“”(空白 space)替换为“*”,并替换字母 "A" 和 "B"(如果它们是第一个)第一个中间名或姓氏的字符用“”(空白)或删除它们。

我的代码可以将“”(空白 space)替换为“*”,但只删除名字的第一个字符,如果它是 "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

您可以使用以下方法:

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