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
|
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
|
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
|
See also: