Método OfficeDataSourceObject.ApplyFilter (Office)

Aplica un filtro a un origen de datos de combinación de correspondencia para filtrar registros específicos que cumplan determinados criterios.

Sintaxis

expresión. ApplyFilter

expresión Variable que representa un objeto OfficeDataSourceObject .

Ejemplo

En este ejemplo se agrega un filtro nuevo que quita todos los registros con un campo Region en blanco y, a continuación, se aplica el filtro a la publicación activa.

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

Vea también

• Miembros del objeto OfficeDataSourceObject

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.