概要説明
日記データベースの単票フォームでは表示されているレコードは1件のみです。検索キーワードに日付で検索する機能を追加します。 ヘッダ部に探したい日付のレコードを探す機能を付けてみましょう。
作成手順
１．使用するフォーム
使用するフォームは次のようなものです。テーブルは[日記]の単票フォームで表示は[日付]と[日記]フィールドを表示している。
２．このフォームのヘッダ部にコマンドボタンと、テキストボックスを追加した。
いずれも非連結のものでる。
それらの名前は次のようにした。
①日付で探すボタン：名前[cmd_hiduke]
②検索ワードのテキストボックス：名前[txt_hiduke]
３．機能
②のテキストボックスに日記データからさがしたい検索日付を入力し。 ①のボタンでキーワードを含むレコードを表示させる。
４．ボタンに次のプロシージャを作成
（※コピー＆ペーストで使えます）
①探すボタン：名前[cmd_sagasu]のプロシージャ
Private Sub cmd_hiduke_Click()
' DAOレコードセットを開く
Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
' 検索日付の変数
Dim hiduke As Date
hiduke = Me.txt_hiduke
' 日付変数で探す
rs.FindFirst "日付 = # " & hiduke & " # "
' 見つからなかった場合
If rs.NoMatch Then
MsgBox "見つかりません"
' 見つかった場合
Else
' フォームのレコードをレコードセットに合わせる
Me.Bookmark = rs.Bookmark
End If
' レコードセットを閉じる
rs.Close: Set rs = Nothing
End Sub
実施結果
「2025/1/10」を検索語にした結果です。フォームに検索日のレコードが表示されました。
レコードが無い場合はメッセージボックスで知らせます。
（この項終わり）