ODSOFilters オブジェクト (Office)

差し込み印刷文書に結合されたデータ ソースに適用するすべてのフィルターを表します。 ODSOFilters オブジェクトは、ODSOFilter オブジェクトで構成されます。

注釈

追加 の使用 新しいフィルター条件をクエリに追加するのには ODSOFilters オブジェクトのメソッドです。

例

次の使用例は、クエリ文字列に新しい行を追加し、結合されたフィルターをデータ ソースに適用します。

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

個々のフィルター条件にアクセスするには、 Item メソッドを使用します。 次の使用例は、すべてのフィルター条件をループ処理し、 Region の値を持つフィルター条件が見つかると、"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

関連項目

• ODSOFilters オブジェクト メンバー
• オブジェクト モデル リファレンス

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。