Описание
Возвращает значение, указывающее порядок символов, используемый при сравнении текстовых строк или при определении порядка сортировки (только в рабочей области Microsoft Jet).
Значение
Возвращаемое значение является значением типа Long или одной из следующих констант:
Замечания
Использование свойства CollatingOrder зависит от того, какой из объектов содержит семейство Fields, как показано в следующем списке:
Значение свойства CollatingOrder совпадает со значением аргумента порядок, которое было указано в методе CreateDatabase при создании базы данных или в методе CompactDatabase при последнем сжатии базы данных.
Значение свойства CollatingOrder объектов Database или Field проверяют для определения метода сравнения строк, указанного для базы данных или для отдельного поля. С помощью свойства CollatingOrder нового, еще не добавленного в семейство объекта Field можно указать использование в поле порядка символов, отличного от общего порядка символов, использующегося во вмещающем данное поле объекте Database.
Значения свойств CollatingOrder и Attributes объекта Field, входящего в семейство Fields объекта Index, определяют порядок символов при сравнении строк и порядок сортировки в индексе. Однако невозможно указать особый порядок для отдельного индекса. Порядок задается сразу для всей таблицы.
Пример
Следующая программа отображает свойство CollatingOrder для базы данных "Борей" и для отдельных полей в таблице.
Sub CollatingOrderX() Dim dbsNorthwind As Database Dim fldLoop As Field Set dbsNorthwind = OpenDatabase("Борей.mdb") With dbsNorthwind ' Отображает языковую настройку базы данных "Борей". Debug.Print "Языковая настройка " & .Name & " = " & .CollatingOrder ' Отображает языковую настройку для полей объекта TableDef. Debug.Print "Языковая настройка полей таблицы " & .TableDefs(0).Name For Each fldLoop In .TableDefs(0).Fields Debug.Print " " & fldLoop.Name & " = " & fldLoop.CollatingOrder Next fldLoop .Close End With End Sub