ODSOFilters Object - PowerPoint

Represents all the filters to apply to the data source attached to the mail merge publication. The ODSOFilters object is composed of ODSOFilter objects.

Remarks

Use the Add method of the ODSOFilters object to add a new filter criterion to the query.

Example

This example adds a new line to the query string and then applies the combined filter to the data source.

Visual Basic for Applications

Visual Basic for Applications
`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`

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

Use the Item method to access an individual filter criterion. This example loops through all the filter criterion and if it finds one with a value of "Region", changes it to remove from the mail merge all records that are not equal to "WA".

Visual Basic for Applications

Visual Basic for Applications
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

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

ofv

See also: