Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
Stellt alle Filter anwenden auf die Datenquelle, die Seriendruckpublikation zugeordnet ist. Das ODSOFilters-Objekt besteht aus ODSOFilter-Objekten .
Hinweise
Verwenden Sie die Hinzufügen -Methode des ODSOFilters -Objekts, um die Abfrage ein neues Filterkriterium hinzuzufügen.
Beispiel
In diesem Beispiel wird eine neue Zeile zur Abfragezeichenfolge hinzugefügt, und anschließend wird der kombinierte Filter auf die Datenquelle angewendet.
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
Verwenden Sie das Element Methode, um ein einzelnes Filterkriterium zuzugreifen. In diesem Beispiel werden alle Filterkriterien durchlaufen, und wenn ein Filterkriterium mit dem Wert Region gefunden wird, wird es so geändert, dass alle Datensätze, die nicht gleich "WA" sind, 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
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.