ACCESS Findでレコードを検索する方法

ACCESSでADOを使ってレコード操作をする際、レコードを検索するために利用するのがFindメソッドです。

今回は、Findでレコードを検索する方法をご紹介します。

こんにちは。
はこにわガジェット（@hakoniwagadget）です。

ACCESSを使った売上管理、顧客管理などのデータベース開発を行っています。
ACCESSは使いこなすために少しスキルが必要なものの、うまく活用すればExcelよりも業務の効率化が図れます。
この記事ではACCESSをもっと使いこなしたい方向けにACCESSの関数をご紹介していきます。

1 Findメソッドとは
2 Findの使い方
3 Findの利用例
4 Findでは1レコードしか出力できない

Findメソッドとは

Findメソッドとは、ACCESS VBAで準備されているレコードを検索するために利用するメソッドです。
Findを使うと指定したレコードセット（テーブルなど）の中から、条件に合致したレコードを検索することが可能です。

なお、FindはACCESS VBAでもADOで利用します。
ADOとはACCESS VBAでテーブルなどのレコードセットを扱うための手法です。

ADOについて詳しくは以下の記事をご覧ください。

Findの使い方

Findは以下の構文で利用します。

レコードセット名.Find 抽出条件 , SkipRows , SearchDirection , Start

いくつか引数がありますが、抽出条件以外の引数は省略可能でほぼ利用しません。
抽出条件のみ設定すれば利用可能です。

Findの利用例

実際の利用例を見たほうが使い方がわかりやすいので、サンプルでご紹介します。
今回は、以下の売上サンプルテーブルからレコードを検索します。

ここから、商品名などを使ってレコードを検索しましょう。
VBAで以下のプロシージャを作成しました。
商品名が「みかん」のレコードを検索して売上IDをメッセージボックスで表示します。


 Public Sub find_test()

    '変数の宣言
　　Dim cnn As ADODB.Connection
　　Dim rst1 As ADODB.Recordset

    '変数にADOオブジェクトを代入
    Set cnn = CurrentProject.Connection
    Set rst1 = New ADODB.Recordset
    rst1.CursorLocation = adUseClient
    
    'レコードセットを取得
    rst1.Open "売上サンプル", cnn, adOpenKeyset, adLockOptimistic
    
    rst1.Find "商品名 = 'みかん'"
    MsgBox rst1!売上ID

    '終了処理
    rst1.Close: Set rst1 = Nothing
    cnn.Close: Set cnn = Nothing

 End Sub

rst1というレコードセットに「売上サンプル」テーブルを格納し、Findメソッドで検索を行っています。