Access学習メモ 3-15. メニュー画面の設計

1. メインメニュー起動時

プロパティシート

選択の種類：フォーム

イベント：読み込み時

Private Sub Form_Load()

    MsgBox "図書館 貸出管理システムを起動します", vbInformation, "システム起動"

End Sub

時短コード°˖*✧◝(⁰▿⁰)◜✧*˖°

Private Sub Form_Load()

    MsgBox "起動します", 64

End Sub

2. 利用者登録フォームを開く

（はい/いいえ確認あり）

プロパティシート

選択の種類：コマンドボタン

イベント：クリック時

Private Sub Cmd_利用者登録_Click()

 If MsgBox("利用者登録を確認しますか？", vbYesNo + vbQuestion) = vbYes Then

    DoCmd.OpenForm "利用者登録"

 End If

End Sub

時短コード°˖*✧◝(⁰▿⁰)◜✧*˖°

Private Sub Cmd_利用者登録_Click()

 If MsgBox("開きますか？", 36) = 6 Then

    DoCmd.OpenForm "利用者登録"

 End If

End Sub

3. 貸出入力簿フォームを開く

（はい/いいえ確認あり）

プロパティシート

選択の種類：コマンドボタン

イベント：クリック時

Private Sub Cmd_貸出入力簿_Click()

 If MsgBox("貸出入力簿を確認しますか？", vbYesNo + vbQuestion) = vbYes Then

    DoCmd.OpenForm "貸出入力簿"

 End If

End Sub

時短コード°˖*✧◝(⁰▿⁰)◜✧*˖°

Private Sub Cmd_貸出入力簿_Click()

 If MsgBox("開きますか？", 36) = 6 Then

    DoCmd.OpenForm "貸出入力簿"

 End If

End Sub

4. グラフ出力フォームを開く

（はい/いいえ確認あり）

プロパティシート

選択の種類：コマンドボタン

イベント：クリック時

Private Sub Cmd_グラフ出力_Click()

 If MsgBox("グラフを出力しますか？", vbYesNo + vbQuestion) = vbYes Then

    DoCmd.OpenForm "印刷画面"

 End If

End Sub

時短コード°˖*✧◝(⁰▿⁰)◜✧*˖°

Private Sub Cmd_グラフ出力_Click()

 If MsgBox("出力しますか？", 36) = 6 Then

    DoCmd.OpenForm "印刷画面"

 End If

End Sub

5. レポートの印刷プレビューを開く

（はい/いいえ確認なし）

プロパティシート

選択の種類：コマンドボタン

イベント：クリック時

Private Sub Cmd_ジャンル別貸出冊数_Click()

　MsgBox "印刷プレビュー画面を開きます", vbInformation

　DoCmd.OpenReport "ジャンル別貸出冊数", acViewPreview

End Sub

時短コード°˖*✧◝(⁰▿⁰)◜✧*˖°

Private Sub Cmd_ジャンル別貸出冊数_Click()

  MsgBox "プレビューを開きます", 64

  DoCmd.OpenReport "ジャンル別貸出冊数", 2

End Sub

6. メニュー画面へ戻る

（現在の画面を閉じて移動 はい/いいえ確認あり）

プロパティシート

選択の種類：コマンドボタン

イベント：クリック時

注：「戻る」ボタンを置きたい各フォームのプロパティシート上で

　　それぞれイベントモジュールを設定・記入する

Private Sub Cmd_Back_Click()

 If MsgBox("メニューに戻りますか？", vbYesNo + vbQuestion) = vbYes Then

    DoCmd.Close

 　 DoCmd.OpenForm "メニュー画面"  

 End If

End Sub

時短コード°˖*✧◝(⁰▿⁰)◜✧*˖°

Private Sub Cmd_Back_Click()

 If MsgBox("メニューに戻りますか？", 36) = 6 Then

    DoCmd.Close

    DoCmd.OpenForm "メニュー画面"

 End If

End Sub

7. メニュー画面を閉じる

（Accessの終了、はい/いいえ確認あり）

プロパティシート

選択の種類：コマンドボタン

イベント：クリック時

Private Sub Cmd_Close_Click()

 If MsgBox("システムを終了しますか？", vbYesNo + vbQuestion) = vbYes Then

    DoCmd.Quit

 End If

End Sub

時短コード°˖*✧◝(⁰▿⁰)◜✧*˖°

Private Sub Cmd_Close_Click()

 If MsgBox("終了しますか？", 36) = 6 Then

    DoCmd.Quit

 End If

End Sub

※フォームのイベントモジュールにコードを置くのは

　実務では避けたい

　フォーム全体が制御されるので改修に手間が生じることがある

　画面移動のたびに毎回、メッセージが登場するのも「・・・」