メニュー用フォーム

1. 画面を再確認
2. 照会ボタン　クリック時
3. 登録ボタン　クリック時
4. 更新ボタン　クリック時
5. 削除ボタン　クリック時
6. 閉じるボタン　クリック時

画面を再確認

照会ボタン　クリック時

Private Sub ButtonNaviSearchToRef_Click()

    Mode = Mode_Ref
    FormSearch.Show

End Sub

1. グローバル変数 Mode に処理名を持つ固定値 Mode_Ref を転送しています。
2. 検索用フォームを表示します。
3. グローバル変数は、標準モジュールの頭で宣言しています。
   そうすることで、各ユーザーフォームをまたいで使用することが可能になっています。
   詳細は標準モジュールの解説を参照してください。

登録ボタン　クリック時

Private Sub ButtonNaviAdd_Click()

    Mode = Mode_Add
    FormAdd.Show

End Sub

1. グローバル変数 Mode に処理名を持つ固定値 Mode_Add を転送しています。
2. 登録用フォームを表示します。

更新ボタン　クリック時

Private Sub ButtonNaviSearchToMod_Click()

    Mode = Mode_Mod
    FormSearch.Show

End Sub

1. グローバル変数 Mode に処理名を持つ固定値 Mode_Mod を転送しています。
2. 検索用フォームを表示します。

削除ボタン　クリック時

Private Sub ButtonNaviSearchToDel_Click()

    Mode = Mode_Del
    FormSearch.Show

End Sub

1. グローバル変数 Mode に処理名を持つ固定値 Mode_Del を転送しています。
2. 検索用フォームを表示します。

閉じるボタン　クリック時

Private Sub ButtonClose_Click()

    Unload Me

End Sub