Propiedad Comparison
Devuelve o establece una constante de MsoFilterComparison que representa cómo comparar las propiedades Column y CompareTo. Lectura/Escritura.
MsoFilterComparison puede ser una de estas constantes de MsoFilterComparison. |
msoFilterComparisonContains |
msoFilterComparisonEqual |
msoFilterComparisonGreaterThan |
msoFilterComparisonGreaterThanEqual |
msoFilterComparisonIsBlank |
msoFilterComparisonIsNotBlank |
msoFilterComparisonLessThan |
msoFilterComparisonLessThanEqual |
msoFilterComparisonNotContains |
msoFilterComparisonNotEqual |
expresión.Comparison
expresión Requerida. Expresión que devuelve uno de los objetos de la lista Aplicar a.
Ejemplo
El ejemplo siguiente cambia un filtro existente para quitar de la combinación de correspondencia todos los registros que no tengan un campo Región 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