簡単な検索ボックスをMicrosoft Accessフォームに追加する

簡単な検索ボックスをMicrosoft Accessフォームに追加するためのステップバイステップガイド。

私は最近、Microsoft Accessでデータベースを開発しています。

同じ名前のテーブルに基づいたフォーム(Project_Metadataと呼ばれる)を作成しましたが、プロジェクトコードでデータベース内の特定のプロジェクトを識別できるように検 プロジェクトコードは、Project_Metadataテーブル内のproject_codeという列に含まれています。

検索ボックスを作成した方法は次のとおりです。

ステップ1

検索ボックスを追加するフォームを開き、”デザイン”リボンを介してメニューから”デザインビュー”を選択します。

ステップ2

“コントロール”ペインからドラッグして、フォームのヘッダーセクションにテキストボックスを挿入します。

Microsoft AccessのControlsリボンの画面キャプチャ
“テキストボックス”ボタンをクリックして、Microsoft Accessフォームのヘッダーセクションにテキストボックスを挿入します。

ステップ3

テキストボックスのキャプションの名前を”Search Project ID”(またはその他の意味のあるテキスト)に変更します。

ステップ4

テキストボックスを右クリックし、”プロパティ”を選択して”プロパティシート”を表示します。

ステップ5

After Updateに移動して選択します””:

検索ボックスのプロパティシート内で、”更新後”をクリックして選択します。

ステップ6

“プロパティシート”の”その他”タブに移動し、テキストボックスの名前を意味のある名前に変更します(”search_project_id”など)。

検索ボックスの名前を意味のあるものに変更します。 この名前は、後のVisual Basicコードで参照されます。

ステップ7

“イベント”タブに戻り、After Updateの横にある...をクリックします。 これにより、AccessでVisual Basicウィンドウが表示されます。

プロパティシートの”更新後”の横にある”…”記号をクリックして、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

検索ボックスがフォームで機能することを確認します。 これで、用語を入力し、入力した文字列を含むすべてのレコードを返すことができるようになりました。

Microsoft Accessフォームのヘッダーセクションの一部の例で、作成された検索ボックスを(他のボタンと一緒に)表示します。

Leave a Reply

コメントを残す

メールアドレスが公開されることはありません。