Access VBA データベース作成10 フォームを開く メインフォームの作成
公開日:
:
最終更新日:2014/04/20
データベース作成
データベース作成10 メインフォームの作成
実践データベース作成の第10回目はメインフォームの作成です。
データベース作成講座では今まで、1.登録フォーム 2.検索フォーム 3.編集フォームと3つのフォームを作成してきました。今回はそれぞれのフォームを開くデータベースのメインフォームを作成します。この講座も第10回目にしてひとつの区切りを迎えることになります。
スポンサーリンク
フォームの作成
メインフォームの作成を行います。
フォーム内には以下のコントロールを作成しました。
(1)「社員管理データベース」と書いたテキストボックス
このデータベース名をドン!と書いた単なるテキストです。
(2)「社員登録コマンド」
(3)「社員検索コマンド」
(4)「社員編集コマンド」
(5)「終了コマンド」
では実際にVBAをどのように組み込んでいくのか説明します。
コマンドボタンのクリックイベント
コマンドボタンのイベントは「クリック時」になります。
コマンドボタンの「クリック時」には以下のプログラムを実行します。
・「社員登録コマンド」、「社員検索コマンド」、「社員編集コマンド」
には各フォームを開くプログラム。
・「終了コマンド」
にはAccess(このデータベース)を終了するプログラム
実際のプログラムは以下のようになります。
プログラム例
Private Sub 社員検索フォームコマンド_Click()
DoCmd.OpenForm “F_社員検索フォーム01”
End Sub
Private Sub 社員編集フォームコマンド_Click()
DoCmd.OpenForm “F_社員編集フォーム01”
End Sub
Private Sub 登録フォームコマンド_Click()
DoCmd.OpenForm “F_社員登録フォーム01”
End Sub
Private Sub 終了_Click()
DoCmd.Quit
End Sub
プログラムの説明
フォームを開く
DoCmd.OpenForm “F_社員登録フォーム01”
フォームを開くには「DoCmd.OpenForm “********”」と記述します。
また、フォームを閉じる場合は「DoCmd.Close acForm, “********”」とします。
(*******はフォーム名)
DoCmd.OpenForm “F_社員登録フォーム01″だけですと、上画像のように開いたフォームの後ろにメインフォームが開いたままになります。
ここは好みの問題ですが、ひとつのフォームですっきりさせたい場合は、
Private Sub 登録フォームコマンド_Click()
DoCmd.OpenForm “F_社員登録フォーム01”
DoCmd.Close acForm, “F_メインフォーム”
End Sub
と記述すれば、メインフォームは閉じることが出来ます。
勿論、この場合登録フォームにもメインフォームを開くプログラムが必要になります。
データベースの終了
「DoCmd.Quit」と記述すればデータベースを終了します。
このままですと、クリックしただけで終了になりますので、
Private Sub 終了_Click()
If MsgBox(“データベースを終了します。よろしいですか?”, vbQuestion + vbYesNo, “終了の確認”) = vbYes Then
DoCmd.Quit
End If
End Sub
上記のように終了の前にYes/No型のメッセージボックスを表示させてもいいですね。
いかがでしょうか?
全10回にわたり説明してきたデータベース作成講座はメインフォームも完成し今回で一区切りにしたいと思います。
AccessVBAを使用してデータベースを作成することが目的でしたので、クエリやマクロをひとつも使用しないデータベースになっています。
基本的な事しか説明し切れていませんがこの講座の内容を応用していけば複雑なデータベースの作成が可能になるはずです。
You Tubeにて動画を公開しています。
スポンサーリンク
ad-pc
ad-pc
関連記事
-
-
Access VBA データベース作成2 テーブルの作成
データベース作成2 テーブルの作成 実践データベース作成の第2回目はテーブルの作成を行います。
-
-
Access VBA データベース作成5 コンボボックスの作成 検索フォームの作成1
データベース作成5 検索フォームの作成1 実践データベース作成の第5回目は検索フォームの作成Par
-
-
Access VBA データベース作成7 リストボックスの値取得 検索フォームの作成3
データベース作成7 検索フォームの作成3 実践データベース作成の第7回目は検索フォームの作成Par
-
-
Access VBA データベース作成8 コンボボックスの選択データを表示 編集フォームの作成1
データベース作成8 編集フォームの作成1 実践データベース作成の第8回目は編集フォームの作成Par
-
-
Access VBA データベース作成9 データの更新 編集フォームの作成2
データベース作成9 編集フォームの作成2 実践データベース作成の第9回目は編集フォームの作成Par
-
-
Access VBA データベース作成4 新規レコード追加 登録フォームの作成2
データベース作成4 登録フォームの作成2 実践データベース作成の第4回目は登録フォームの作成Par
-
-
Access VBA データベース作成1 ADO参照設定
データベース作成1 準備 データベース作成の実践編として数回に渡り、AccessVBAを使用したデ
-
-
Access VBA データベース作成6 SQLでLike演算子 検索フォームの作成2
データベース作成6 検索フォームの作成2 実践データベース作成の第6回目は検索フォームの作成Par
-
-
Access VBA データベース作成3 新規レコード取得 登録フォームの作成1
データベース作成3 登録フォームの作成1 実践データベース作成の第3回目は登録フォームの作成を行い