テキストボックスでフォーム上のレコードを検索、次の検索も

フォーム上に検索用テキストボックスを設置し、そこに入力された「語」を含むレコードを検索してフォームに表示させる。続けて結果表示させるための「次を検索」機能を付ける。

次の「F_名簿」フォーム行います。名簿フォームには「T_名簿」のテーブルをレコードソースにしてあり、表示のフィールドがあります。

フォームをデザインビューで開き、ヘッダ部を表示させます。コントロールを設置するのに使います。高さは２センチが目安です。
ツールボックスからテキストボックスを一つ、コマンドボタンを二つ、ヘッダ部に設置します。コマンドボタンが二つ必要なのは、検索されるレコードが複数ありえるからです。一つは最初の検索用に、もう一つは次のレコードを検索するためです。
名前も付けておきます。ここでは次のように名付けました。
テキストボックスに「Txt_検索語」、コマンドボタンに「Cmd_検索実行」「Cmd_次を検索」、ボタンの表題もそれぞれ「検索実行」「次を検索」にします。

※DAOのレコードセットを使います。参照設定で「Microsoft DAO 3.5 Object Liblary」を使えるようにしておいてください。

①　クリック時イベントのプロシージャを作成します。
（その手順）
ボタン上で右クリックメニューで「イベントのビルド」をクリック、で「ビルダの選択」画面から「コードビルダ」をクリックします。
表示されたVBAエディタの作成されたプロシージャに次のようにコードを記述します。
（検索実行ボタンのプロシージャ）
----------------------------------------------------------------------
Private Sub Cmd_検索実行_Click()

'DAOレコードセットを保存する変数宣言
Dim rs As DAO.Recordset

'フォームのレコードセットのコピーを代入
Set rs = Me.RecordsetClone

'テキストボックスの語を含むレコードを検索する（あいまい検索）
rs.FindFirst "[氏名] Like '*" & Me!Txt_検索語 & "*'"

'該当するレコードがない場合の分岐処理
If rs.NoMatch Then
MsgBox "見つかりません"
Else

'レコードセットのブックマークにフォームのレコードを合わせる
Me.Bookmark = rs.Bookmark

End If

'DAOレコードセットを閉じる
Set rs = Nothing

End Sub

----------------------------------------------------------------------

付け加えた各コントロールの位置やラベルの調整は行っていません。分かりやすく使いやすい形状に仕上げてください。テキストボックスのラベル表示は「氏名に含まれる文字を入力」とすると良いでしょう。

（この項終わり）