Seekメソッド

Seekメソッドとは、テーブルタイプのRecordsetオブジェクトに対して指定した条件を満たすレコードを検索するメソッドです。このメソッドを利用するには、検索するフィールドにインデックスを作成します。なお、ダイナセットタイプとスナップショットタイプのレコードセットではFind系のメソッドを用います。DAOでは、NoMatchプロパティを用いて一致したレコードが見つかったかどうかを調べることができます。ADOでは、BOFプロパティまたはEOFプロパティを用いて調べます。

• 書式

[DAO]

recordset.Seek comparison, key1, key2...key13


[ADO]

recordset.Seek KeyValues, SeekOption 

• 引数

[DAO]

[ADO]

関連項目

CurrentDb（DAO）OpenRecordsetメソッド（DAO）

事例 ) 「成績簿」テーブルレコードを「生徒名」で検索する

「成績簿」テーブルレコードを「生徒名」で検索します。

1. テーブルを作成します。
2. ID、生徒名、総合成績フィールドを作成します。
3. 連結フォームを作成します。
4. ID、生徒名、総合成績テキストボックスを作成します。
5. コンボボックスを作成します。
6. 実行するコマンドボタンを作成します。

コマンドボタンクリック時イベントプロシージャの作成

コマンドボタンクリック時イベントプロシージャを以下のように作成します。

Private Sub 実行_Click()

   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Dim varRet As Variant
   Dim varMatch As Variant

   Set db = CurrentDb
   Set rs = db.OpenRecordset("成績簿", dbOpenTable)

   With rs
      .Index = "生徒名" '--- A
      .Seek "=", Me.生徒名検索
   End With

   If Not rs.NoMatch Then '--- B
      With Me
         .ID = rs!ID
         .生徒名 = rs!生徒名
         .総合成績 = rs!総合成績
      End With
   End If

   rs.Close: Set rs = Nothing
   db.Close: Set db = Nothing

End Sub

解説

1. 「生徒名」フィールドにインデックス設定を事前に行う必要があります。
2. 検索条件に合うレコードが見つかると、NoMatchプロパティはTrueを返します。
   この段階で検索が終了します。

動作確認

1. フォームをビューモードで開きます。

2. コンボボックスから生徒名を選択し、[生徒検索]ボタンをクリックします。
3. 指定した条件のレコードが表示されます。