Ниже приводится простой скрипт, который позволит разбить стандартное ФИО на три отдельных поля. Разбиение производится по пробелам. Поэтому, в случае, когда отчество отсутствует, или Имя и/или фамилия более сложные, чем "одно слово", скрипт придется дорабатывать. Но для стандартных случаев скрипт подходит как есть.
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)
Comments
0 comments
Please sign in to leave a comment.