ник: ????
Здравствуйте! Подскажите пожалуйста как можно преобразовать Фамилию Имя Отчество в Фамилию И.О.
При помощи функции на VB. Я нашел код таких функций в интернете, однако у меня ничего не работает.
В поле формы вводится - Фамилия Имя Отчество. В этой же форме есть поле в котором должна преобразовываться
Фамилия И.О. Это поле будет потом использовываться в запросе.
В обработку какого события надо вставлять фуккцию. Пришлите пожалуйста работающий пример, или опишите как можно это сделать.
Я пробывал вставить SQL запрос, но он работает в старой копии моей бызы, в в новой нет.
SELECT [Фамилия] & " " & Left([Имя],1) & "." & Left([Отчество],1) & "." AS ФамилияИО
FROM Сотрудники
WHERE (((Сотрудники.Должность)="водитель автобуса"))
ORDER BY [Фамилия] & " " & Left([Имя],1) & "." & Left([Отчество],1) & ".";
Заранее Спасибо. Мой e-mail bug-l@yandex.ru
Код функции (в модуле FamIO):
Option Compare Database
Option Explicit
Function FamIO(strFIO As String)
Dim strSubS As String
Dim lngPos As Long
If IsNull(strFIO) Then Exit Function
strSubS = Trim(strFIO)
lngPos = InStr(strSubS, " ")
FamIO = FamIO & Mid(strSubS, 1, lngPos - 1)
strSubS = LTrim(Mid(strSubS, lngPos))
lngPos = InStr(strSubS, " ")
FamIO = FamIO & " " & Left(strSubS, 1) & ". "
strSubS = LTrim(Mid(strSubS, lngPos))
FamIO = FamIO & Left(strSubS, 1) & ". "
End Function