リンクユニット

Windows10 & Office2016 Access2016

Print Friendly, PDF & Email

検索と置換ダイアログボックスをボタンで起動

投稿日:2017年1月7日 更新日:

Accessでレコードの検索を行う時、[検索と置換」ダイアログボックスを使用することは多いと思います。検索ボタンはリボンの[ホーム]タブにあります。Access2016では、これまでの双眼鏡アイコンから虫眼鏡に変わりました。ショートカットキーは、[Ctrl]+[F]で同じです。

【Access2013】
Access2013の検索

【Access2016】
Accessの検索

この検索ボタンを押した時に表示される[検索と置換]ダイアログボックスをフォームのボタンクリックで表示させる方法です。リボンは各自で非表示にしたり、あるいはフォームによって非表示にすることができますからね。
フォームでリボンを非表示にするには、開く時イベントか読み込み時イベントに以下のように書くとリボンは非表示になります。
DoCmd.ShowToolbar "Ribbon", acToolbarNo

ここでは、Access2016の分割フォームで解説します。

コントールウィザードの確認してボタンをクリック

コントロールウィザードを使用して作成しますので、フォームをデザインビューで開いて、[デザイン]タブをクリックします。まず、その他ボタンをクリックしてます。
デザインタブ

そして、[コントロールウィザードの使用]がオンになっているか確認します。オフになっていれば、クリックしてオンにします。既定ではオンになっていると思いますが念のため確認します。そして、[ボタン]をクリックします。
コントロールウィザードの使用

[レコードの検索]を選択

フォームヘッダーなどへドラッグしてボタンの位置を決定します。[コマンドボタンウィザード]が表示されるので、[レコードの移動]-[レコードの検索]を選択して(既定のまま)、[次へ]ボタンをクリックします。
コマンドウィザード

ボタンに表示する文字列またはピクチャの指定

次のウィザードで[文字列]を選択します。既定ではピクチャになっています。ピクチャのままでもOKです。ボタンに表示する文字(レコードの検索)を変更したい場合は、ここで編集します。[次へ]ボタンをクリックします。
文字列の選択

ボタン名の入力

ボタン名を入力して[完了]ボタンをクリックします。
ボタン名

フォームビューで確認

デザインビューをフォームビューに切り替えると、下のようにボタンが設置されています。クリックすると、[検索と置換]ダイアログボックスが表示されます。
ボタンの実行

この[検索と置換]ダイアログボックスは、慣れている方には問題ないのですが、慣れていない方にとっては使いづらいようです。検索するフィールドを選択したり、検索条件を[フィールドの一部分]に変更して部分検索に行う操作が面倒という方も多いです。

[フィールドの一部分]にして検索ダイアログボックスを表示

検索と置換ダイアログボックスを起動したときに既定で[フィールドの一部分]にする方法は、オプションのクライアントの設定から変更することができます。以下のページを参照されてください。Access2013で解説していますが、Access2016も同様の設定ができます。
検索と置換の検索条件のカスタマイズ

検索と置換の検索条件のカスタマイズ

Accessの[ホーム]タブの[検索]ボタンをクリックして表示される[検索と置換]ダイアログボックスは便利ですね。(ショートカットキーは[C ...

続きを見る

検索条件の変更

ですが、上記のクライアントの設定は各自のパソコンで設定してもらう必要があります。

クリック時イベントに入力

そこで、検索するフィールドが決まっていて、検索条件は[フィールドの一部分]にして検索ダイアログボックスを表示する方法を紹介します。
検索ボタンのプロパティを表示します。クリック時イベントの[埋め込みマクロ]を削除([埋め込みマクロ]の文字を削除するだけでOKです。)して、[ビルダーの選択]ボタン[...]をクリックします。
ビルダーの選択ボタン

[ビルダーの選択]ダイアログボックスの中から[コードビルダー]を選択して、[OK]ボタンをクリックします。
ビルダーの選択ダイアログボックス

下のように入力します。
Me!商品名.SetFocus
SendKeys String:="%H{HOME}%N"
DoCmd.RunCommand acCmdFind

イベントプロシージャは下のようになります。
クリック時イベント

これで、どこのフィールドを選択していても商品名フィールドで検索し、検索条件は[フィールドの一部分]になります。参考コントロールウィザードを使用せずに直接ボタンを設置してクリック時イベントに書き込んでも同じです。
分割フォームで検索

関連以下のページも参考になると思います。
コンボボックスでレコードの抽出

コンボボックスでレコードの抽出

Accessの分割フォームのデータシートビューには、Excelのフィルターと同じようにフィルタボタンがあり、Excelの操作と同じように様々 ...

続きを見る

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

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

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

続きを見る

検索用コンボボックスの作成

ウィザードを使って検索用コンボボックスを簡単作成

Accessのフォームで検索用コンボボックスを作成する方法です。コンボボックス作成ウィザードを使って簡単に作成することができます。 テーブル ...

続きを見る

参考Officeのバージョンによって操作が異なる場合があります。以下の記事で、お使いのOfficeのバージョンを確認する方法を解説しています。

Office(Word、Excel、PowerPointなど)のバージョンを確認する方法

Microsoft Officeも時を得て、大きく様変わりしてきました。トラブルを解決しようとするとき、あるいは、何かの操作を探すときなど、 ...

続きを見る

Accessを学習するなら、一度は読んでおいたほうがよい本です。

おすすめ記事と広告

こんな記事もあります

Windows10で顔文字を使うには

Windows10で顔文字を入力する方法です。標準でかなりの顔文字が入っていますので、ぜひお試しください。 WordやExcel、Outlo ...

縦棒グラフにアニメーションをつける

PowerPointでは、グラフにアニメーション効果を簡単に設定することができます。棒グラフの項目別や系列別にフェードを設定して、より効果的 ...

受信メールの一部分を印刷したい時はメッセージの編集が便利

受信したメールの一部分を印刷したい時ってありますね。たとえば、レストランや列車の予約をしたら、お知らせのメールが届きます。その受信メールの中 ...

顔文字が出ない、変換候補一覧に表示される文字が少ない場合の対処方法

Windows10のバージョンアップによってIMEもどんどん進化しています。バージョンアップしたら、顔文字が変換候補一覧に表示されなくなった ...

ごみ箱をスタート画面にピン留め

Windows10で[ごみ箱]を右クリックすると、ショートカットメニューに[スタート画面にピン留めする]というメニューがあります。 スタート ...

-Windows10 & Office2016 Access2016

Copyright © 2001-2018 初心者のためのOffice講座 All Rights Reserved.

Copyright© 初心者のためのOffice講座 , 2018 AllRights Reserved Powered by AFFINGER4.