【ACCESS VBA】フォームを消すことってできる?

【ACCESS VBA】フォームを消すことってできる?

記事
IT・テクノロジー

YouTubeでも紹介しています。是非ご覧ください。


ルーティン業務を僕滅する内容を紹介してきました。
それは、ルーティン業務に対する、ストレスを僕滅するためです。
そのストレスは、ルーティン業務だけではありません。


フォームを消すことってできる?

こんにちは。伊川です。
最近は、ルーティン業務を僕滅する内容を紹介しています。
Excelは、相違工夫でどうにでもなりますね。
今回は、ACCESSの技を少し紹介します。
ACCESSは、布教活動をしないと、どうしてもExcelに負けてしまいます。
そんな時に少しだけ、役立つ、人にやさしい技を少し紹介したいと思います。
ACCESSは、共有すると、フォームを開くときでも、重くなります。
検索フォームの小技について解説します。


このブログはこんな人にお勧め

ACCESSで検索フォームを作成したい人
ACCESSでVBAを勉強している人
自分の働いているセクションで、ACCESSを認知してほしい人


このブログを、読み終わるころには・・・・

ACCESSを勉強して、最初に利用するのは、検索フォームを作成することではないでしょうか?
カンタンな検索フォームの作成から、利用者への愛情を持った検索フォームの作成を理解することができます。


ACCESSを作成したら検索フォームを作りたくなる

これは、当然の帰結ですね。
Excelを利用したらVLOOKUP関数を利用したくなるのと同じです。
VLOOKUP関数も、幅広い意味で言えば、検索ということになります。
Ctrl+Fで、検索することを、Excelでは、否定しません。
しかし、ACCESSでは、NGです。
時間がかかりすぎます。
だから、利用しなくなるのです。

愛情の検索フォームを作成 作業手順 その1 データベース確認

1.jpg

このようなデータベースがあります。
MT_放送時間
また、同じ内容で、MT_放送時間確認というものを用意します。

愛情の検索フォームを作成 作業手順 その2 検索フォームを作成する

2.jpg

このようなフォームを作成します。
検索値は、IDで、数値型です。

3.jpg

仕込んでいるコードは、わずか4行です。
しかし、ACCESSには、検索する際に、文字型、数値型で、クォーテーションが異なってきます。
もし、IDが文字型であるならば、

DoCmd.ApplyFilter , "[ID] = '" & Me![ID検索] & "'"
となります。
これが本当に理解できませんでした。
でも、これは、検索はできるのですが、これで終わりです。
なんかおかしくないですか?
この場合は、エンドユーザーが、検索フォームを、バツ閉しなければなりません。

愛情の検索フォームを作成 作業手順 その2 対話型検索フォームを作成する

4.jpg

このように対話型にしておくと、なんか、ほっこりします。
つまり、
検索を続けるなら、検索フォームを開いておく
検索を中止するなら、検索フォームを閉じるとします。

5.jpg

約7行のコードを追加します。
エンドユーザーからすると、雲泥の差ではないでしょうか?
機械的な操作よりも、MsgBoxで、相手の意思確認をした方が、スマートです。

愛情の検索フォームを作成 作業手順 その4 ACCESSを共有すると・・・


ACCESSを共有すると、重くなります。
その時に、検索フォームを開くときでさえ、重くなりストレスになります。
この時は、フォームを意図的に見えないようにすることで、あたかも、フォームが閉じたように演出することができます。

6.jpg
7.jpg

コマンドボタンの、表示、非表示ができます。
これは、ボタンのみに限らず、フォームにも応用ができます。

愛情の検索フォームを作成 作業手順 その5 フォームを消す

8.jpg

9.jpg
放送時間確認には、上記のコードを記載しています。
このVisibleを利用して、検索フォームを消しています。
見えていないだけで、実は、起動しています。

10.jpg

11.jpg

閉じるのボタンには、上記のコードを記載しています。
OpenArgsの解説
OpenArgsが、Nullではなかったら、仮面ライダー555の値を持つ、フォームを表示させるという意味です。

ここがポイント

どんなに、素晴らしいシステムでも、認知されないと、利用してもらえません。
また、パソコンとはいえ、人間味がないと利用されません。
利用しやすいシステムを作成するようにしましょう。
マニアックなシステムは、廃れていくだけです。

まとめ
業務を効率化するには、セクションの全員が、統一されたシステムを利用することが条件です。
今回も最後まで読んでいただきありがとうございました。

サービス数40万件のスキルマーケット、あなたにぴったりのサービスを探す ココナラコンテンツマーケット ノウハウ記事・テンプレート・デザイン素材はこちら