Objet ODSOFilter (Office)

  • Article

Cet objet représente un filtre à appliquer à une source de données de publipostage liée. L’objet ODSOFilter est membre de l’objet ODSOFilters .

Remarques

Chaque filtre est une ligne dans une chaîne de requête. Utilisez les propriétés Column, CompareTo, Comparison et Conjunction pour renvoyer ou définir le critère de requête de source de données.

Exemple

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 
 
 Set appOffice = Application.OfficeDataSourceObject 
 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

Utilisez la méthode Add de l’objet ODSOFilters pour ajouter un nouveau critère de filtre à la requête. Cet exemple ajoute une nouvelle ligne à la chaîne de requête et applique ensuite le filtre combiné à la source de données.

Sub SetQueryCriterion() 
 Dim appOffice As OfficeDataSourceObject 
 
 Set appOffice = Application.OfficeDataSourceObject 
 appOffice.Open bstrConnect:="DRIVER=SQL Server;SERVER=ServerName;" & _ 
 "UID=user;PWD=;DATABASE=Northwind", bstrTable:="Employees" 
 
 With appOffice.Filters 
 .Add Column:="Region", _ 
 Comparison:=msoFilterComparisonIsBlank, _ 
 Conjunction:=msoFilterConjunctionAnd 
 .ApplyFilter 
 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.