а Фамилия Имя Отчество в разных полях или в одном?

при условии, что фамилии имена отчества разделяются пробелами и сохранена последовательность ввода
arrFIO=split([Фамилия Имя Отчество],chr(32))
ну а дальше обращаетесь к ним по одному :)
"сократить" имя, например arrFIO[1]=left(arrFIO[1],1) & "."
... ка кто так...

еще желательно предусмотреть сокращения типа Вл и Влад (или к полному ФИО) а так же отработку типа Рагимов Ибрагим-Оглы, когда только есть Фамилия и Имя.

тада надо
DIM FAM_I_O as string
IF instr (1,FIO,"-",3)<>0 then
' тута будут оглы
FAM_I_O = left(FIO,instr (1,FIO," ",3)) & mid(instr (1,FIO," ",3))
else
' тута без оглов
FAM_I_O = left(FIO,instr (1,FIO," ",3)) & mid(instr (1,FIO," ",3)+1,1) & mid(instr (instr (1,FIO," ",3)+1,FIO," ",3)+1,1)
end if

Приставка оглы означает мужчина кызы - женщина

А что про это скажете?

DIM FAM_I_O as string IF instr (1,FIO,"-",3)<>0 then ' тута будут оглы FAM_I_O = left(FIO,instr (1,FIO," ",3)) & mid(instr (1,FIO," ",3)) else ' тута без оглов FAM_I_O = left(FIO,instr (1,FIO," ",3)) & mid(instr (1,FIO," ",3)+1,1) & mid(instr (instr (1,FIO," ",3)+1,FIO," ",3)+1,1) end if

Код прям скопируйте...
Только вместо FIO
Me!ПОЛЕ_ФАМИЛИИИИИ

Вот примерчик

Private Sub Кнопка0_Click()
Dim FAM_I_O As String
If InStr(1, Me!Поле1, "-", 3) <> 0 Then
' тута будут оглы
FAM_I_O = Left(Me!Поле1, InStr(1, Me!Поле1, " ", 3)) & Mid(Me!Поле1, InStr(1, Me!Поле1, " " + 1, 3))
Else
' тута без оглов
FAM_I_O = Left(Me!Поле1, InStr(1, Me!Поле1, " ", 3)) & Mid(Me!Поле1, InStr(1, Me!Поле1, " ", 3) + 1, 1) & "." & Mid(Me!Поле1, InStr(InStr(1, Me!Поле1, " ", 3) + 1, Me!Поле1, " ", 3) + 1, 1) & "."
End If
Me!Поле3 = FAM_I_O

End Sub

Все работает. Ну я думаю БАГАУТДІНОВ ГАБДРАУФ ГАБДНУР УЛИ через восток не поедит.

А ВАЩЕ ТО извиняюся - был не прав
Вот так будет лучшеее

Скока хочешь пробелов столько будет буквов

ТОЧНО...........
Ну тада надо и сообщение "Вы чё пишите - второго и третьего пробелов не нахожу"

Вот так например

Dim FAM_I_O As String Dim F As Long If InStr(1, Me!Поле1, " ", 3) = 0 Then Call MsgBox("В данной записи отсутствуют разделители!!! (пробелы)", vbCritical) Exit Sub End If FAM_I_O = Left(Me!Поле1, InStr(1, Me!Поле1, " ", 3)) For F = Len(FAM_I_O) To Len(Me!Поле1) If Mid(Me!Поле1, F, 1) = " " Then FAM_I_O = FAM_I_O & " " & Mid(Me!Поле1, F + 1, 1) & "." End If Next F Me!Поле3 = FAM_I_O

А где те кто задавал вопросы... ..........
Они для себя уже всё уяснили????

не нужно проверять количество пробелов =0
нужно проверять количество пробелов >0

это сократит код,

дополнительно можно применить Else (MsgBox "Имя не указано или указано в одно слово - проверьте корректность ввода")

Вы считаете??????77

я бы воспользовался рекурсией

add

передавая очередную позицию первого пробела в остатке стринга, пока не кончится текст

функции Mid (), Instr()

Оч просто делаем функцию - куда в качестве параметров будет передаваться (разделитель)


Public function FAMIO_F_I_O (DELILKA as string)

Dim FAM_I_O As String
Dim F As Long

If InStr(1, Me!Поле1, DELILKA, 3) > 0 Then
FAM_I_O = Left(Me!Поле1, InStr(1, Me!Поле1, DELILKA, 3))
For F = Len(FAM_I_O) To Len(Me!Поле1)
If Mid(Me!Поле1, F, 1) = DELILKA Then
FAM_I_O = FAM_I_O & " " & Mid(Me!Поле1, F + 1, 1) & "."
End If
Next F
Me!Поле3 = FAM_I_O
Else
Call MsgBox("В данной записи отсутствуют разделители!!! --> " & DELILKA , vbCritical)
Me!Поле3 = Me!Поле1
Exit Sub
End If
end function
А в настройках будем иметь таблицу с перечнем используемых или возможных разделителей и столбцом - использовать.

А на форме будут переключатели " "
А на форме будут переключатели "/ "
А на форме будут переключатели "- "
А на форме будут переключатели "_ "
А на форме будут переключатели ","
А на форме будут переключатели "~"
А на форме будут переключатели "^"
А на форме будут переключатели "="
А на форме будут переключатели "+"
...................................................................

то бишь Осап Сулейманович Бендер в итоге Бендер О.С.

Остап-Сулейман-Берта-Мария-Бендер-Бей
вот как он себязвал