Microsoft ACCESS プログラミング

【ACCESS-VBA】ファイル選択するダイアログボックスを表示してみよう!

 

 

悩む女性2

Microsoft ACCESSを利用してファイル選択するためのダイアログボックスを表示したい。

 

 

ただMicrosoft ACCESS自体には、こうした「ダイアログボックスでファイル選択する」ようなデフォルト機能がありません。

 

まあExcelにもないんですけどね。だから自分で作る必要があります。

管理者

 

そんな悩みにお答えして、ACCESSで埋め込むVBAの記述を活用したダイアログボックスの作り方を解説していこうと思います。

 

ダイアログ表示の画面イメージ

まずダイアログボックスの表示画面のイメージ画像からみていきましょう。

 

【ダイアログ表示画面はこちら】

 

こんな感じでファイル選択できる画面が表示されます。

 

ダイアログボックスを活用したファイル選択の使い方

 

そもそもダイアログボックスを活用する時には、どんな時に使用するのか、その使い方についても知っておきましょうね!

管理者

 

 

ダイアログボックスを活用する主な目的は3つです。

 

<ダイアログボックスを活用する主な目的>

  • CSV,TXT,Excel等のファイルを選択してデータをDBに取り込む
  • ファイルを読み込む
  • ACCESSの機能にあるImport機能はエラーが多いため

※DB:データベース

 

まず、上記3つの場合に利用します。

ACCESSのImport機能を利用すればDBに取り込むことが可能ですが、このImport機能の場合には、取り込むデータエラー値が存在するとデータが取り込めないことがあります。

なので、ちょっと精度に不安があるのが難点でもあります。

 

それだけ、データの精度がしっかりしていないと、ダメなんですね。

 

そんな時に役立つのがこのダイアログボックスによるデータ取り込み機能を設けてあげることで、ファイルのデータをスムーズに取り込めるように機能を作ります。

 

 

参照設定を設定しよう!

ダイアログボックスを表示するためには、ACCESSの参照設定のコンポーネントを追加する必要性があります。

 

➡その設定方法がこちら

 

これらの設定は、データベースへの更新機能を用いたり、Excelと連携する際に必要な設定項目なので、基本的に✔を付けておくことをおすすめします。

 

ただ、このダイアログと関係するのは、「Microsoft ActiveX DataObjects ●● Library」です。

 

上記の設定をご確認の上、チェックを入れておきましょう。

 

さあ、これで初期設定は完了です。それでは実際にプログラミングについて確認していきましょう。

 

ファイル選択するためのダイアログボックスを表示するソース

ファイル選択するためのダイアログボックスを表示するためのソースは下記になります。

 

 

こちらのソースを参考にして、ダイアログを表示させてみて見て下さい。

もし表示がうまくいかない場合は、ご連絡下さいね。^^

 

ACCESSでダイアログを表示するためのおすすめ参考書はこちら

ACCESSには、色々な機能が設けられており、その機能をしっているかいないかだけの違いです。私も色々な参考書を購入してきましたが、その中でも色々な機能を知るためには、下記が特におすすめです。

 


 

ACCESSの機能をもっと知りたいという方は、ぜひこちらの参考書をご参考にして見て下さいね。

 

 

まとめ

 

このように、ACCESSを活用したダイアログボックスの表示については、色々な部分で活用できる部分があります。

Excelのデータを取得したり、テキストデータをセットすることで、値を取得することができますので、この機能ができるとACCESSとエクセルの連携ができたり、メリットが盛だくさんなので、必要な方はぜひ挑戦して見て下さい。

 


→当ブログをフォローして頂けると励みになります。 


大人気自宅飲み放題!多彩なビールをご自宅で楽しめる【DREAM BEER】

楽天おすすめ商品はこちら

  • この記事を書いた人
  • 最新記事

みやさん

【サイト運営者・著者】みやさん 【実績】ライター歴7年 ブログ歴3年⇒2万PV推移中 【実務】現役プログラマー|【発信内容】▶副業やブログの始め方 ▶ライターとしてのノウハウ ▶生活の有益情報を発信しています。皆様の生活改善にご利用ください。

Copyright© 副業ケアネット , 2022 All Rights Reserved Powered by AFFINGER5.