objet OfficeDataSourceObject (Office)

Cet objet représente la source de données de publipostage dans une opération de publipostage.

Remarques

Pour utiliser l'objet OfficeDataSourceObject, dimensionnez une variable en tant qu'objet OfficeDataSourceObject. Vous pouvez ensuite utiliser les différentes propriétés et méthodes associées à l'objet. Utilisez la méthode SetSortOrder pour spécifier le mode de tri des enregistrements dans une source de données.

Exemple

L’exemple suivant trie la source de données en fonction du code postal dans l’ordre décroissant, puis sur le nom et le 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

Utilisez la colonne, Comparaison, CompareTo, conjonction et propriétés pour renvoyer ou définir le critère de requête de source de données. L’exemple suivant modifie un filtre existant pour supprimer du publipostage tous les enregistrements qui n’ont pas un champ Région égal à « WA ».

Sub SetQueryCriterion() 
 Dim appOffice As Office.OfficeDataSourceObject 
 Dim intItem As Integer 
 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 With appOffice.Filters 
 For intItem = 1 To .Count 
 With .Item(intItem) 
 If .Column = "Region" Then 
 .Comparison = msoFilterComparisonNotEqual 
 .CompareTo = "WA" 
 If .Conjunction = "Or" Then .Conjunction = "And" 
 End If 
 End With 
 Next intItem 
 End With 
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.

  • Last updated on