演算子 (Microsoft Access SQL)

適用先: Access 2013 | Access 2016

指定した値のリストにあるいずれかの値と式の値とが等しいかどうかを判断します。

構文

expr [ Not ] In ( value1, value2, ... )

expr [ Not ] In ( SELECT ... )

注釈

In 演算子には、次の指定項目があります。

パーツ	説明
expr	評価するデータを含むフィールドを指定する式です。
value1, value2	引数 expr を評価するための式。

値の一覧に expr が見つかった場合、 In 演算子は True を返します。それ以外の場合は False を返します。 Not 論理演算子を含め、反対の条件を評価できます (つまり、expr が値の一覧に含まれていないかどうか)。

次の例では、In 演算子を使用して、受注品が指定の地域に発送されたかどうかを判断します。

SELECT * 
FROM Orders 
WHERE ShipRegion In ('Avon','Glos','Som')

In を使用して 、外部データベース ファイルに存在するテーブルまたはクエリを参照することもできます。

SELECT qryValues 
FROM qryValues In 'c:\files\MyDB.accdb'

例

次の使用例では、Northwind.mdb データベースの Orders テーブルを使用して、Lancashire と Essex に出荷される受注品、およびその出荷日をすべて含むクエリを作成します。

この例では、EnumFields プロシージャを呼び出します。EnumFields プロシージャについては、SELECT ステートメントの使用例を参照してください。

Sub InX() 
 
    Dim dbs As Database, rst As Recordset 
 
    ' Modify this line to include the path to Northwind 
    ' on your computer. 
    Set dbs = OpenDatabase("Northwind.mdb") 
 
    ' Select records from the Orders table that 
    ' have a ShipRegion value of Lancashire or Essex. 
    Set rst = dbs.OpenRecordset("SELECT " _ 
        & "CustomerID, ShippedDate FROM Orders " _ 
        & "WHERE ShipRegion In " _ 
        & "('Lancashire','Essex');") 
     
    ' Populate the Recordset. 
    rst.MoveLast 
     
    ' Call EnumFields to print the contents of 
    ' the Recordset. 
    EnumFields rst, 12 
 
    dbs.Close 
 
End Sub

関連項目

• 開発者フォーラムにアクセスする
• support.office.com のヘルプにアクセスする
• answers.microsoft.com のヘルプにアクセスする
• UtterAccess のフォーラムにアクセスする
• 開発者と VBA のプログラミング ヘルプ センター (FMS) にアクセスする
• StackOverflow のアクセス ポスト

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

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