Выбор инициалов из строки

[Swatch]

Здравствуйте! Повторяюсь, тема уже была, но вопрос не решен... Как можно выбрать инициалы из полного ФИО? Ну вот к примеру, в форме есть поле ФИО: САФРОНОВ СЕРГЕЙ НИКОЛАЕВИЧ. Нужен результат Сафронов С.Н.

[Teslenko_EA]

Здравствуйте Swatch.
Если Вас не запугали разные имена в России о которых писал Андрей (Aent), можете попробовать создать подобную функцию :

Sub shorts() ' проверка функции
Dim s$
s = "САФРОНОВ СЕРГЕЙ НИКОЛАЕВИЧ."
s = sFIO(s)
End Sub
Function sFIO(s$)
Dim v() As String
s = Replace(s, "  ", " ")
v = Split(s, " ")
s = LCase(Mid(v(0), 2))
For i = 0 To UBound(v) - 1
    v(i) = " " + UCase(Left(v(2), 1))
Next
sFIO = Trim(v(0) + s + v(1) + "." + v(2) + ".")
End Function

получать данные в поле формы из функции может строка: =sFIO([ПолеИсточника])
Евгений.

[Swatch]

Функции Replace и split :что это такое?

[Teslenko_EA]

Swatch, участники форума оказывают помощь в решении проблем возникших при реализации проекта с применением VB(A), но изучать команды и функции VB(A) думаю лучше самостоятельно.
"Replace и split" - буквальный перевод названия объясняет их назначение.
Евгений.

[Swatch]

Извините за неправильно поставленный вопрос: проблема в том что базу делаю в Аксессе 97(в нем работают на предприятии) а там эти функции не работают...

[Teslenko_EA]

возможно подойдет применение InStr, не уверен но попробуйте:

Sub shorts() ' проверка функции
Dim s$
s = "САФРОНОВ СЕРГЕЙ НИКОЛАЕВИЧ."
s = sFIO(s)
End Sub
Function sFIO(s$) As String
Dim i%
's = "Иванов иван иванович"
i = InStr(1, s, " ")
sFIO = UCase(Left(s, 1)) + LCase(Mid(s, 2, i - 1))
sFIO = sFIO + " " + UCase(Mid(s, i + 1, 1)) + "."
i = InStr(i + 1, s, " ")
sFIO = sFIO + " " + UCase(Mid(s, i + 1, 1)) + "."
End Function

Евгений.

[Swatch]

Огромное спасибо! Все работает!:-)