スキルアップ・問題解決なら、モーグにおまかせ！

●概要●
構文  WHERE 条件式1 OR 条件式2

OR演算子を使用すると指定した複数の条件のうちのいずれかの条件を満たすレコードを検索します。OR演算子を使用していくつ条件を指定してもかまいません。
サンプルでは2つの条件を指定し、「社員コードが10003より小さい」または「部署コードが40」のレコードを検索します。

'複数の条件のいずれかを満たすレコードを検索する
Public Sub Sample()

    Dim myDB As Database
    Dim myRS As DAO.Recordset
    Dim mySQL As String

    'SQLステートメントを定義する
    mySQL = "SELECT * FROM 社員テーブル" _
                 & " WHERE 社員コード < 10003 OR 部署コード=40 ;"

    'カレントデータベースを変数に代入する
    Set myDB = CurrentDb
    'SQLステートメントを実行してレコードセットを開く
    Set myRS = myDB.OpenRecordset(mySQL, dbOpenDynaset)
    'レコードセットの内容を表示する
    Do Until myRS.EOF
        Debug.Print myRS!社員コード & " " & myRS!部署コード _
               & " " & myRS!名前 & " " & myRS!入社年月日 & " " & myRS!職種
        myRS.MoveNext
    Loop
    'レコードセットを閉じる
    myRS.Close

End Sub

●補足●
検索結果は［イミディエイト］ウィンドウに表示されます。