Méthode OfficeDataSourceObject.SetSortOrder (Office)
Cette méthode définit l'ordre de tri des données de publipostage.
Syntaxe
expression. SetSortOrder (SortField1, SortAscending1, SortField2, SortAscending2, SortField3, SortAscending3)
Expression Variable qui représente un objet OfficeDataSourceObject .
Parameters
Nom | Requis/Facultatif | Type de données | Description |
---|---|---|---|
SortField1 | Requis | Chaîne | Premier champ sur lequel doit s'effectuer le tri des données de publipostage. |
SortAscending1 | Facultatif | Booléen | True : (valeur par défaut) pour effectuer un tri croissant sur Champtri1 ; Trier false pour effectuer un tri décroissant. |
SortField2 | Facultatif | Chaîne | Deuxième champ sur lequel doit s'effectuer le tri des données de publipostage. Il s'agit par défaut d'une chaîne vide. |
SortAscending2 | Facultatif | Booléen | True : (valeur par défaut) pour effectuer un tri croissant sur SortField2 ; Trier false pour effectuer un tri décroissant. |
SortField3 | Facultatif | Chaîne | Troisième champ sur lequel doit s'effectuer le tri des données de publipostage. Il s'agit par défaut d'une chaîne vide. |
SortAscending3 | Facultatif | Booléen | True : (valeur par défaut) pour effectuer un tri croissant sur Champtri3 ; Trier false pour effectuer un tri décroissant. |
Exemple
L’exemple suivant trie d’abord la source de données en fonction du code postal dans l’ordre décroissant, puis du nom et du prénom dans l’ordre croissant.
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
Voir aussi
Assistance et commentaires
Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.
Commentaires
https://aka.ms/ContentUserFeedback.
Bientôt disponible : Tout au long de 2024, nous allons supprimer progressivement GitHub Issues comme mécanisme de commentaires pour le contenu et le remplacer par un nouveau système de commentaires. Pour plus d’informations, consultezEnvoyer et afficher des commentaires pour