Описание
Возвращает значение, указывающее порядок символов, используемый при сравнении текстовых строк или при определении порядка сортировки (только в рабочей области 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