Table of contents
TOC
Recolher sumário
Expandir sumário

Método OfficeDataSourceObject.ApplyFilter (Office)OfficeDataSourceObject.ApplyFilter Method (Office)

office 365 dev account|Última Atualização: 22/03/2018
|
2 Colaboradores

Aplica um filtro a uma fonte de dados de mala direta para filtrar registros especificados que atendam a critérios especificados.Applies a filter to a mail merge data source to filter specified records meeting specified criteria.

SintaxeSyntax

expressão. ApplyFilterexpression. ApplyFilter

expressão Uma variável que representa um objeto OfficeDataSourceObject .expression A variable that represents an OfficeDataSourceObject object.

ExemploExample

Este exemplo adiciona um novo filtro que remove todos os registros com um campo Região em branco e aplica o filtro à publicação ativa.This example adds a new filter that removes all records with a blank Region field and then applies the filter to the active publication.

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

Ver tambémSee also

ConceitosConcepts

Objeto OfficeDataSourceObjectOfficeDataSourceObject Object

Outros recursosOther resources

Membros do objeto OfficeDataSourceObjectOfficeDataSourceObject Object Members

© 2018 Microsoft