コマンドボタン名を取得して変数に代入したい。
OS:windowsXp
Access Version:Xp
既出でしたらすみません。
INDEXのフォームにて複数コマンドボタンを作り、それを押すと各登録フォームや集計フォームが開くようにしています。
さて、質問なのですが、コマンドボタンで別のフォームを開く時の処理を(フォーム名が違うだけで後は同じなので)まとめて書きたいのです。
現在は次のようにやっています。
-------------------------------------------------
Private Sub F_メニュー_Click()
Call close_form
DoCmd.OpenForm "F_メニュー", acNormal, , , acFormEdit, acWindowNormal
End Sub
Private Sub F_売上伝票_Click()
Call close_form
DoCmd.OpenForm "F_売上伝票", acNormal, , , acFormEdit, acWindowNormal
End Sub
(中略)
Private Sub 事業所別集計_Click()
Call close_form
DoCmd.OpenForm "F_事業所別集計", acNormal, , , acFormEdit, acWindowNormal
End Sub
Private Sub 消費税変更_Click()
Call close_form
DoCmd.OpenForm "F_消費税変更", acNormal, , , acFormEdit, acWindowNormal
End Sub
Private Sub システム終了_Click()
Call close_form
DoCmd.RunCommand acCmdExit
End Sub
Private Sub close_form()
msgbx = False
DoCmd.Close acForm, "index", acSaveYes
End Sub
-------------------------------------------------
これを
ボタン名_Click()
ではなく
frm_open()
押されたボタン名を変数に取得(ボタン名=Form名にします。)
DoCmd.OpenForm 押されたボタン名変数
のように共有したいのです。
どうすれば出来ますでしょうか?ご指導よろしくお願いします。
お礼
回答頂きありがとうございました。