*

Access VBA データベース作成10 フォームを開く メインフォームの作成

公開日: : 最終更新日:2014/04/20 データベース作成

データベース作成10 メインフォームの作成

実践データベース作成の第10回目はメインフォームの作成です。
データベース作成講座では今まで、1.登録フォーム 2.検索フォーム 3.編集フォームと3つのフォームを作成してきました。今回はそれぞれのフォームを開くデータベースのメインフォームを作成します。この講座も第10回目にしてひとつの区切りを迎えることになります。

スポンサーリンク

フォームの作成

メインフォームの作成を行います。

sakusei27

フォーム内には以下のコントロールを作成しました。
(1)「社員管理データベース」と書いたテキストボックス
このデータベース名をドン!と書いた単なるテキストです。
(2)「社員登録コマンド」
(3)「社員検索コマンド」
(4)「社員編集コマンド」
(5)「終了コマンド」
では実際にVBAをどのように組み込んでいくのか説明します。

コマンドボタンのクリックイベント

コマンドボタンのイベントは「クリック時」になります。

sakusei28

コマンドボタンの「クリック時」には以下のプログラムを実行します。
・「社員登録コマンド」、「社員検索コマンド」、「社員編集コマンド」
には各フォームを開くプログラム。
・「終了コマンド」
には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, “********”」とします。
(*******はフォーム名)

sakusei29

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

関連記事

sakusei18

Access VBA データベース作成6 SQLでLike演算子 検索フォームの作成2

データベース作成6 検索フォームの作成2 実践データベース作成の第6回目は検索フォームの作成Par

記事を読む

sakusei17

Access VBA データベース作成5 コンボボックスの作成 検索フォームの作成1

データベース作成5 検索フォームの作成1 実践データベース作成の第5回目は検索フォームの作成Par

記事を読む

sakusei24

Access VBA データベース作成9 データの更新 編集フォームの作成2

データベース作成9 編集フォームの作成2 実践データベース作成の第9回目は編集フォームの作成Par

記事を読む

sakusei12

Access VBA データベース作成3 新規レコード取得 登録フォームの作成1

データベース作成3 登録フォームの作成1 実践データベース作成の第3回目は登録フォームの作成を行い

記事を読む

sakusei11

Access VBA データベース作成2 テーブルの作成

データベース作成2 テーブルの作成 実践データベース作成の第2回目はテーブルの作成を行います。

記事を読む

sakusei22

Access VBA データベース作成8 コンボボックスの選択データを表示 編集フォームの作成1

データベース作成8 編集フォームの作成1 実践データベース作成の第8回目は編集フォームの作成Par

記事を読む

sakusei20

Access VBA データベース作成7 リストボックスの値取得 検索フォームの作成3

データベース作成7 検索フォームの作成3 実践データベース作成の第7回目は検索フォームの作成Par

記事を読む

sakusei15

Access VBA データベース作成4 新規レコード追加 登録フォームの作成2

データベース作成4 登録フォームの作成2 実践データベース作成の第4回目は登録フォームの作成Par

記事を読む

sakusei02

Access VBA データベース作成1 ADO参照設定

データベース作成1 準備 データベース作成の実践編として数回に渡り、AccessVBAを使用したデ

記事を読む

Message

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

転職01
初心者がAccess VBAの仕事に就く為には

初心者がAccess VBAを使った仕事に就く 私はSEやITエンジ

sound01
Access VBA 音を鳴らす PlaySound

音を鳴らす PlaySound Access上で効果音を鳴らすプログ

pass01
Access VBA フォームをパスワードで制限

フォームをパスワードで制限 Accessで作成したデータベース使用時

prg01
Access VBA 処理の進行状況を表示するプログレスバー(ProgressBar)

処理の進行状況を表示するプログレスバー Accessで処理に時間のか

excel03
Access VBA AccessのデータをExcel(エクセル)へ変換

AccessのデータをExcel(エクセル)へ変換 Accessで使

→もっと見る

PAGE TOP ↑