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

●概要●
構文  WHERE フィールド = 条件

WHERE句を使用して、指定した条件を満たすレコードを検索します。
サンプルでは、「職種」が「マネージャ」のすべてのレコードを「社員テーブル」から検索します。

'指定した条件を満たすレコードを検索する
Public Sub Sample()

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

    'SQLステートメントを定義する
    mySQL = "SELECT * FROM 社員テーブル WHERE 職種='マネージャ' ;"

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

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