Syntax

expression.ApplyFilter

expression A variable that represents an OfficeDataSourceObject object.

Example
This example adds a new filter that removes all records with a blank Region field and then applies the filter to the active publication.

Visual Basic for Applications 
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
Apply apply filter applyfilter applyfilter method ofv

See also: