Access

検索履歴つきテキストボックスをコンボボックスで実現(Access)(サンプル付き)

2019年11月10日

インターネットブラウザの検索テキストボックスのようにAccessのテキストボックスでも検索履歴を表示させたいと思い、この方法をやってみました。

サンプルを作りました。ダウンロードはこちら
下図のようにコンボボックスとコマンドボタンを配置します。コンボボックスにて文字列を入力して検索ボタンをクリックすると「T_検索履歴」テーブルに履歴が保存されていきます。

テーブル

テーブルにて「T_検索履歴」を作ります。

IDオートナンバー型
検索履歴文字列型

最初の図のコンボボックスの名前は「コンボ0」です。検索用コマンドボタンは「cmd_検索」です。

コンボボックスの【プロパティシート】を開き、【データ】タブの【値集合ソース】を次のようにします。「distinct」を使うことによって重複文字列をひとつにまとめてくれます。

「検索用コマンドボタン」の【プロパティシート】を開き、【イベント】タブの【クリック】時に「コードビルダー」を選びます。

ココに注意

【プロパティシート】の【入力チェック】は「いいえ」にしてください(おそらくデフォルトは「いいえ」)。

VBAコード

VBAのエディタが開きますので下記コードを記入します。コンボボックスの文字列が空の時はテーブルに記載しません。同じ文字列が存在した時も追加しないようにしました。
テーブル「T_検索履歴」の「検索履歴」フィールドに検索文字列がどんどん追加されていきます。

-Access
-, ,

Please disable your adblocker or whitelist this site!

//アドセンスの遅延読み込み