ник: k@s
надо как то так но не получается
FAM_I_O = Left(Me!ФамилияР, InStr(1, Me!ФамилияР, " ", 3))
For F = Len(FAM_I_O) To Len(Me!ФамилияР)
If Mid(Me!ФамилияР, F, 1) = " " Then
FAM_I_O = FAM_I_O & " " & Mid(Me!ФамилияР, F + 1, 1) & "."
Me!ФамилияР2 = FAM_I_O