Share via

SetSortOrder Method

  • Article

Sets the sort order for mail merge data.

expression.SetSortOrder(SortField1, SortAscending1, SortField2, SortAscending2, SortField3, SortAscending3)

*expression   * Required. An expression that returns one of the objects in the Applies To list.

SortField1   Required String. The first field on which to sort the mail merge data.

SortAscending1   Optional Boolean. True (default) to perform an ascending sort on *SortField1   *; False to perform a descending sort.

SortField2   Optional String. The second field on which to sort the mail merge data. Default is an empty string.

SortAscending2   Optional Boolean. True (default) to perform an ascending sort on *SortField2   *; False to perform a descending sort.

SortField3   Optional String. The third field on which to sort the mail merge data. Default is an empty string.

SortAscending3   Optional Boolean. True (default) to perform an ascending sort on *SortField3   *; False to perform a descending sort.

Example

The following example sorts the data source first according to ZIP code in descending order, then on last name and first name in ascending order.

Sub SetDataSortOrder()
    Dim appOffice As OfficeDataSourceObject

    Set appOffice = Application.OfficeDataSourceObject

    appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _
        "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees"

    appOffice.SetSortOrder SortField1:="ZipCode", _
        SortAscending1:=False, SortField2:="LastName", _
        SortField3:="FirstName"
End Sub

Applies to | OfficeDataSourceObject Object