Dim FAM_I_O As String
Dim F As Long
If InStr(1, Me!Поле1, " ", 3) > 0 Then
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
Else
Call MsgBox("В данной записи отсутствуют разделители!!! (пробелы)", vbCritical)
Me!Поле3 = Me!Поле1
Exit Sub
End If
|