テキストボックスでレコード抽出

Accessのフォームで検索用のテキストボックスを作成して、そのテキストボックスに入力した文字から部分一致でレコードを抽出する方法を紹介します。

下のようなテーブルがあります。

デザインビューは下のようになっています。

分割フォームの作成

このテーブルを元に分割フォームを作成します。

テーブルを選択した状態で、［作成］タブにある［フォーム］グループの［その他のフォーム］から［分割フォーム］をクリックします。

フォームはレイアウトビューで表示されますが、デザインビューに切り替えてコントロールの大きさなどを調整しておきます。

フォームビューに切り替えると、下のようなフォームが完成します。

この分割フォームは、上がレコードの単票、下がデータシートになっていて、とても便利です。

検索や並べ替えもExcelのフィルターと同じように操作できます。

個人で使う場合は、これだけでも十分な機能を備えてると思うのですが。

やはり共有で使用する場合は、このフィルターの使い方に慣れていない方もいるので考慮しないといけません。

検索用テキストボックスの作成

そこで、商品名を簡単に検索したり、抽出できるようにするために検索用のテキストボックスを作成して、入力したテキストから部分一致検索ができるようにしたいと思います。

フォームをデザインビューで開いて、非連結のテキストボックスを1つ作成します。

［デザイン］タブのコントロールにある［テキストボックス］をクリックして、［詳細］エリアにドラッグします。

［テキストボックスウィザード］が表示されたら、［キャンセル］ボタンをクリックします。

ウィザードの方が分かりやすい場合は、そのまま次へ進んで完成させても構いません。

ラベルとテキストボックスに名前付け

非連結のテキストボックスを選択した状態で、［デザイン］タブの［プロパティシート］をクリックしてプロパティを表示させます。

［その他］タブで［名前］を［検索］とします。

ラベルの標題は［商品名検索］にします。

ラベルの標題は、プロパティからでもいいですし、ラベルを選択して、そのまま入力してかまいません。

検索ボタンの作成

そして、テキストボックスの横に［検索］ボタンを作成します。

［デザイン］タブの［ボタン］をクリックして［詳細］エリアのテキストボックスの横でドラッグしてボタンを作成します。

ウィザードが表示されたら、［キャンセル］ボタンをクリックて閉じます。

コマンドボタンを選択して、プロパティシートの［書式］タブで［標題］を［検索］にします。

そして、［その他］タブを選択して［名前］を［検索ボタン］に変更します。

今度は［イベント］タブをクリックして、［クリック時］の［ビルダー選択］ボタン［…］をクリックします。

コードビルダーの起動

［ビルダーの選択］ダイアログボックスが表示されたら、［コードビルダー］を選択して［OK］ボタンをクリックします。

下のように書き込みます。

［検索］はテキストボックスの名前になります。

Like演算子を使用してあいまい検索をします。

Me.Filter = "商品名 like'*" & 検索 & "*'" Me.FilterOn = True

検索ボタンをクリックして実行

フォームビューに切り替えて、検索してみます。

テキストボックスに文字を入力して、［検索］ボタンをクリックすると、下のように商品名の一部に検索文字を含む商品名が抽出されます。

フィールドの非表示

分割フォームのデータシートに［商品名検索］フィールドは不要なので、右クリックしてショートカットメニューから［フィールドの非表示］をクリックして非表示にしておきます。

フィルター解除ボタンの作成

また、レコードの抽出を解除するためのボタンも設置しておくと便利です。

別のボタンを1つ作成して、検索ボタンの横に設置します。

そして、クリック時のイベントに下のように書き込みます。

Me.FilterOn = False イベントプロシージャは下のようになります。

これで完成です。

コンボボックスから抽出する方法は、以下の記事で解説しています。

抽出ではなく、検索だけでよければ以下の記事を参照してください。ウィザードで簡単に作成できます。