コマンドボタン名を取得して変数に代入したい。
OS:windowsＸｐ
Access Version:Ｘｐ
既出でしたらすみません。
ＩＮＤＥＸのフォームにて複数コマンドボタンを作り、それを押すと各登録フォームや集計フォームが開くようにしています。
さて、質問なのですが、コマンドボタンで別のフォームを開く時の処理を（フォーム名が違うだけで後は同じなので）まとめて書きたいのです。
現在は次のようにやっています。
-------------------------------------------------
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, "ｉｎｄｅｘ", acSaveYes
End Sub
-------------------------------------------------
これを
ボタン名_Click()
ではなく
frm_open()
押されたボタン名を変数に取得（ボタン名＝Form名にします。）
DoCmd.OpenForm 押されたボタン名変数
のように共有したいのです。
どうすれば出来ますでしょうか？ご指導よろしくお願いします。
お礼
ありがとうございました。 回答のおかげで、かなり簡単に解決してしまいました。 本当にありがとうございます。