ник: час
Оч просто делаем функцию - куда в качестве параметров будет передаваться (разделитель)
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
А в настройках будем иметь таблицу с перечнем используемых или возможных разделителей и столбцом - использовать.
А на форме будут переключатели " "
А на форме будут переключатели "/ "
А на форме будут переключатели "- "
А на форме будут переключатели "_ "
А на форме будут переключатели ","
А на форме будут переключатели "~"
А на форме будут переключатели "^"
А на форме будут переключатели "="
А на форме будут переключатели "+"
...................................................................
