Community

Ниже приводится простой скрипт, который позволит разбить стандартное ФИО на три отдельных поля. Разбиение производится по пробелам. Поэтому, в случае, когда отчество отсутствует, или Имя и/или фамилия более сложные, чем "одно слово", скрипт придется дорабатывать. Но для стандартных случаев скрипт подходит как есть.

Dim  vField

vField = me.Field("FullName").Text

if vField = "" then
me.CheckSucceeded = False
me.ErrorMessage = "Поле ФИО должно быть заполнено"
Exit Sub
end if

Dim MyArray
MyArray = Split (vField)
 if UBound (MyArray) - LBound (MyArray) < 2="">
      me.CheckSucceeded = False
      me.ErrorMessage = "Проверьте, что поле ФИО распознано корректно"
      exit Sub
 end if

me.Field("Surname").Text = MyArray(0)
me.Field("Name").Text = MyArray(1)
me.Field("MiddleName").Text = MyArray(2)