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

Question

我有一个包含全名（名字和姓氏）的数据库我创建了一个文本框和一个搜索按钮。我想自定义我的文本框在写入搜索词后将每个“”（空白 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

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)

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

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

vba

ms-access

ms-access-2013