簡単な検索ボックスをMicrosoft Accessフォームに追加するためのステップバイステップガイド。
私は最近、Microsoft Accessでデータベースを開発しています。
同じ名前のテーブルに基づいたフォーム（Project_Metadataと呼ばれる）を作成しましたが、プロジェクトコードでデータベース内の特定のプロジェクトを識別できるように検 プロジェクトコードは、Project_Metadataテーブル内のproject_codeという列に含まれています。
検索ボックスを作成した方法は次のとおりです。
ステップ1
検索ボックスを追加するフォームを開き、”デザイン”リボンを介してメニューから”デザインビュー”を選択します。
ステップ2
“コントロール”ペインからドラッグして、フォームのヘッダーセクションにテキストボックスを挿入します。
ステップ3
テキストボックスのキャプションの名前を”Search Project ID”（またはその他の意味のあるテキスト）に変更します。
ステップ4
テキストボックスを右クリックし、”プロパティ”を選択して”プロパティシート”を表示します。
ステップ5
After Updateに移動して選択します””:
ステップ6
“プロパティシート”の”その他”タブに移動し、テキストボックスの名前を意味のある名前に変更します（”search_project_id”など）。
ステップ7
“イベント”タブに戻り、After Updateの横にある...をクリックします。 これにより、AccessでVisual Basicウィンドウが表示されます。
ステップ8
すべてのテキストを次のように置き換えます:
Option Compare DatabasePrivate Sub Search_Exp_AfterUpdate()If search_project_ID <> "" Then query = "SELECT * FROM Project_Metadata WHERE project_code='" & search_project_ID & "'" & "" Me.RecordSource = query Me.RefreshElse Me.RecordSource = "SELECT * FROM Project_Metadata" Me.RefreshEnd IfEnd Subあなた自身のデータベースのために上記のコードをカスタマイズする必要があります。 上記の例では:
-
search_project_ID手順6で名前を変更したテキストボックスの名前を指定します。 Project_Metadataは、検索する必要があるデータを含むテーブルの名前です。project_codeは、検索する必要があるテーブルの列です。
Meコマンドは、現在フォーカスされており、コードが現在実行されているフォームを表します。
ステップ9
検索ボックスがフォームで機能することを確認します。 これで、用語を入力し、入力した文字列を含むすべてのレコードを返すことができるようになりました。
