Compartilhar via

Objeto ODSOFilter (Office)

  • Artigo

Representa um filtro a ser aplicado a uma fonte de dados de mala direta. O objeto ODSOFilter é um membro do objeto ODSOFilters .

Comentários

Cada filtro é uma linha em uma cadeia de caracteres de consulta. Use as propriedades Coluna, CompareTo, Comparação e Conjunção para retornar ou definir o critério de consulta de fonte de dados.

Exemplo

O exemplo a seguir altera um filtro existente para remover do email mesclar todos os registros que não têm um campo Region igual a "WA".

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

Use o método Add do objeto ODSOFilters para adicionar um novo critério de filtro à consulta. Este exemplo adiciona uma nova linha à cadeia de caracteres de consulta e aplica o filtro combinado à fonte de dados.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.