ODSOFilter.Junction-Eigenschaft (Office)

Ruft eine MsoFilterConjuntion-Konstante ab, die die Beziehung eines Filterkriteriums zu anderen Filterkriterien im ODSOFilters-Objekt darstellt, oder legt sie fest. Lese-/Schreibzugriff.

Syntax

Ausdruck verwendet werden. Konjunktion

Ausdruck Eine Variable, die ein ODSOFilter-Objekt darstellt.

Beispiel

Im folgenden Beispiel wird ein vorhandener Filter geändert, sodass alle Datensätze, die nicht das Feld "Region " oder "Region" aufweisen, aus dem Seriendruck entfernt werden.

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

Siehe auch

• ODSOFilter-Objektmember

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.