CollatingOrder Property Example

This example displays the CollatingOrder property for the Northwind database and for individual fields in a table.

Sub CollatingOrderX()

    Dim dbsNorthwind As Database
    Dim fldLoop As Field

    Set dbsNorthwind = OpenDatabase("Northwind.mdb")

    With dbsNorthwind
        ' Show collating order of Northwind database.
        Debug.Print "Collating order of " & .Name & " = " & _
            .CollatingOrder

        ' Show collating order of a TableDef object's fields.
        Debug.Print "Collating order of fields in " & _
            .TableDefs(0).Name & " table:"
        For Each fldLoop In .TableDefs(0).Fields
            Debug.Print "  " & fldLoop.Name & " = " & _
                fldLoop.CollatingOrder
        Next fldLoop

        .Close
    End With

End Sub