Find メソッド

Findメソッドとは、ダイナセットタイプ及びスナップショットタイプのRecordsetオブジェクトに対してレコード検索を行うメソッドです。DAOのFind系メソッドとほぼ同じですが、複数のフィールドに対しての検索はできません。また、Findメソッドを呼び出す前にカレントレコードの位置が設定されていない場合は、エラーが発生します。この場合は、事前にMoveFirstメソッドなど、行の位置を設定するメソッドを呼び出します。

• 書式

Find (Criteria, SkipRows, SearchDirection, Start)

• 引数

○関連項目

1. Connectionオブジェクト（ADO）
2. Openメソッド（ADO）
3. EOFプロパティ（ADO）

事例 ) 「顧客管理リスト」テーブルレコードを「会社名検索」コンボボックスで選択し表示する

「顧客管理リスト」テーブルレコードを「会社名検索」コンボボックスで選択し表示します。

1. テーブルを作成します。
2. ID、氏名、住所、電話番号、メールアドレスフィールドを作成します。
3. 連結フォームを作成します。
4. ID、氏名、住所、電話番号、メールアドレステキストボックスを作成します。
5. コンボボックスを作成します。
6. 実行するコマンドボタンを作成します。

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

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

Private Sub 検索実行_Click()

   Dim cn As New ADODB.Connection
   Dim rs As New ADODB.Recordset
   Dim strRet As String

   Set cn = CurrentProject.Connection
   rs.Open "顧客管理リスト", cn, adOpenKeyset, adLockOptimistic
   strRet = "会社名='" & Me!会社名検索 & "'" ' --- A

   rs.Find strRet

   If Not rs.EOF Then
      With Me
        .ID = rs!ID
        .登録年月日 = rs!登録年月日
        .会社名 = rs!会社名
        .住所 = rs!住所
      End With
   End If

   rs.Close: Set rs = Nothing
   cn.Close: Set cn = Nothing

End Sub

解説

1. FindFirstメソッドの検索条件を変数strRetに格納します。

動作確認

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

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