Propiedad Conjunction

Microsoft Office Objects

Mostrar todo

Propiedad Conjunction

       

Devuelve o establece una constante de MsoFilterConjunction que representa cómo está relacionado un criterio de filtro con otro criterio de filtro del objeto ODSOFilters. Lectura/Escritura.

MsoFilterConjunction puede ser una de estas constantes de MsoFilterConjunction.
msoFilterConjunctionAnd
msoFilterConjunctionOr

expresión.Conjunction

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