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

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

AND演算子を使用すると指定した複数の条件をすべて満たすレコードを検索します。
AND演算子を使用していくつ条件を指定してもかまいません。
サンプルでは2つの条件を指定し「部署コードが30」で、かつ「職種がマネージャ」のレコードを検索します。

'複数の条件をすべて満たすレコードを検索する
Public Sub Sample()

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

    'SQLステートメントを定義する
    mySQL = "SELECT * FROM 社員テーブル WHERE 部署コード=30" _
                 & " AND 職種='マネージャ' ;"

    'カレントデータベースを変数に代入する
    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

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