Objeto ODSOFilters (Office)

Representa todos los filtros para aplicar al origen de datos adjunto a la publicación de combinación de correspondencia. El objeto ODSOFilters se compone de objetos ODSOFilter .

Observaciones

Utilice la ventana Agregar método del objeto ODSOFilters para agregar un criterio de filtro nuevo a la consulta.

Ejemplo

Este ejemplo agrega una línea nueva a la cadena de consulta y, a continuación, aplica el filtro combinado al origen de datos.

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

Utilice el elemento método para obtener acceso a un criterio de filtro individual. En este ejemplo se recorre en bucle todo el criterio de filtro y, si encuentra uno con un valor de Region, lo cambia para quitar de la combinación de correspondencia todos los registros que no son iguales 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

Vea también

• Miembros del objeto ODSOFilters
• Referencia del modelo de objeto

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.