AccessのVBAでSQLのSELECT WHERE ORを使い、複数条件のどれかに合うレコードを抽出する｜フォーム実行例

dim SQL as String
Dim rs As Recordset
SQL = "SELECT フィールド名 FROM テーブル名 WHERE 条件式1 OR 条件式2 "
Set rs = CurrentDb.OpenRecordset(SQL)

「OR」は２つの条件式の論理和です。
「A　か　B」、「A　または　B」、「A　あるいは　B」などと言われます。
条件式1 か 条件式2　のどちらかが「True (真)」のデータになります。

例：　SQL = "SELECT 学生ID FROM 学生名簿 WHERE 体重<=60 OR 身長<=165 "
この場合、体重が60以下か身長が165以下の学生IDを抽出します。
さらに　体重<=60 OR 身長<=165 OR 血液型='A'のようにさらに追加することもできます。

［コード］
Option Compare Database

Private Sub コマンド8_Click()
    Dim SQL As String
    Dim rs As Recordset
    If IsNull(Me!テキスト2) Then
        MsgBox "抽出する身長を入力してください。"
        Me!テキスト2.SetFocus
        Exit Sub
    End If
    If IsNull(Me!テキスト3) Then
        MsgBox "抽出する体重を入力してください。"
        Me!テキスト3.SetFocus
        Exit Sub
    End If
    Me!テキスト1 = Null
    SQL = "SELECT 学生ID,身長,体重 FROM 学生名簿 WHERE 体重<=" & Me!テキスト3 & " OR 身長<=" & Me!テキスト2
    Set rs = CurrentDb.OpenRecordset(SQL)
    Do Until rs.EOF
        Me!テキスト1 = Me!テキスト1 & rs![学生ID] & "： " & rs![身長] & "  " & rs![体重] & vbCrLf
        rs.MoveNext
    Loop
    Set rs = Nothing
End Sub

サンプルソフトのダウンロード