ник: k@s
буль буль оглы не катит .
Private Sub ФамилияР_LostFocus()
Dim fi As String
fi = Right$([ФамилияР], Len([ФамилияР]) - InStr(1, [ФамилияР], " ") - 0)
LastName = Left$([ФамилияР], InStr(1, [ФамилияР], " ") - 1) ' фамилия
FirstName = Left$([fi], InStr(1, [fi], " ") - 1) 'Имя
Otch = Right$(fi, Len(fi) - InStr(1, fi, " ") - 0) 'Отчество
End Sub
А что про это скажите тоже глючит 