Замена первых символов в строке после каждого вхождения «пробела» - PullRequest
1 голос
/ 22 сентября 2019

У меня база данных состоит из полных имен (имя, отчество и фамилия). Я создал текстовое поле и кнопку поиска.я хочу настроить свое текстовое поле, чтобы оба Заменить каждое "" (пробел) на "*" после написания поискового слова и заменить букву "A" и "B", если они являются первым символом первого имени или фамилииС помощью "" (пусто) или удалить их.

Мой код работает с заменой "" (пробел) на "*", но удаляет только первый символ имени, если это "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

1 Ответ

0 голосов
/ 22 сентября 2019

Вы можете использовать следующий подход:

Me!Name = "*" & Replace(Trim(Me!Name), " ", "*")
Me!Name = Replace(Me!Name, "*A", "*")
Me!Name = Replace(Me!Name, "*B", "*")
Me!Name = Mid(Me!Name, 2)
Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...