Méthode OfficeDataSourceObject.ApplyFilter (Office)

  • Article

Cette méthode applique un filtre à une source de données de publipostage pour filtrer des enregistrements spécifiés répondant à des critères spécifiés.

Syntaxe

expression. ApplyFilter

Expression Variable qui représente un objet OfficeDataSourceObject .

Exemple

Cet exemple montre comment ajouter un nouveau filtre qui supprime tous les enregistrements contenant un champ Région vide, puis comment appliquer le filtre à la publication active.

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