Remarque
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de vous connecter ou de modifier des répertoires.
L’accès à cette page nécessite une autorisation. Vous pouvez essayer de modifier des répertoires.
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 comment trier les enregistrements dans une source de données.
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
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 de la fusion et publipostage tous les enregistrements qui n’ont pas de 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.