コマンドボタン名を取得して変数に代入したい。

質問

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 押されたボタン名変数

のように共有したいのです。

どうすれば出来ますでしょうか？ご指導よろしくお願いします。

回答No.2

chairwarmer

まず#1さんのおっしゃる通りACCESSではコントロール配列は使えませんので
コマンドボタンクリック時のプロシージャを単純に共通化する事はできません。

すべてのボタンに共通の処理であるならば
フォームモジュールに適当なFunctionを作っておいて
ボタンクリック時にはイベントプロシージャでなく
=Function名 で処理を呼び出す事で共通化はできますが
この方法では「どのボタンが押されたか」までは判断できないので
ボタンごとに処理を分岐する事はできません。

そこで、すこしイレギュラーな方法になりますが

フォームにフレームを設置する
→　そのフレームの中にコマンドボタンではなくトグルボタンを複数設置し
　　それぞれに異なるオプション値を割り当てる
→　フレームの更新後処理に処理内容を記述する

という形で実現しようと思えばできます。
フレーム内にトグルボタンを4つ設置してオプション値1～4を割り当て

Private Sub frame1_AfterUpdate()
　　Select Case Me.frame1.Value
　　　　Case 1
　　　　　　DoCmd.OpenForm "Form1"
　　　　Case 2
　　　　　　DoCmd.OpenForm "Form2"
　　　　Case 3
　　　　　　DoCmd.OpenForm "Form3"
　　　　Case 4
　　　　　　DoCmd.OpenForm "Form4"
　　End Select
　　Me.frame1.Value = 0
End Sub

とやれば統一はできそうです。
（最後に Value = 0 にする事で、トグルボタンは何も選択されていない状態に戻る）

お礼

皆さん、早速有難うございました。
自分なりにいろんなサイトで探し回った結果、

Screen.ActiveControl.Name

が使えそうだったので、これを使いなんとか解決する事が出来ました。

有難うございました。

回答No.1

tak2003

VBではコントロール配列等を使って複数のコマンドボタンを配列にするのですが、ACCESSではできないみたいですね。VBは使えますがアクセスはあまり知らないもので^^；
参考のURLに代替のやり方が載っています。
ご参考まで

参考URL：

http://www.twin.ne.jp/~dhamaoka/access/tips05.html