Access VBA Sub のパラメーター

質問

フォームに作ったボタンのイベントとして、
「イベント プロシージャ」→「クリック時」→ 「・・・」で
サブルーチンを作ろうとしています。
「・・・」で
Private Sub 名前_Click()
が出ますが、パラメターを、例えば「名前_Click(p1)」と付けると
「イベントプロパティに指定した式 クリック時 でエラーが発生しました： ・・・」
が出ます。
（１）_Click()には、パラメターを設定できないのでしょうか？
（２）もし、付けられるのでしたら、付ける方法を教えて下さい
（３）もし、_Click()には、パラメターを設定できないのでしたら、代替え方法を教えて下さい
よろしくお願いします。

回答No.1

chie65535 · ベストアンサー

＞（１）_Click()には、パラメターを設定できないのでしょうか？

出来ません。

「呼び出される側でパラメーターを受け取る」には「呼ぶ側でパラメーターを指定する必要」があります。

ですが、クリック時のプロシージャは「クリック時に勝手に呼ばれる」ので「呼ぶ側でパラメーターを指定する事が不可能」です。

「呼ぶ側でパラメーターを指定する事が不可能」なのであれば「呼び出される側でパラメーターを受け取る事も不可能」です。

＞（２）もし、付けられるのでしたら、付ける方法を教えて下さい

そういう方法はありません。

＞（３）もし、_Click()には、パラメターを設定できないのでしたら、代替え方法を教えて下さい

「なぜパラメーターが必要になってしまったのか？」を、良く検討して下さい。

質問に「なぜパラメーターが必要になってしまったのかの理由」が書かれていないので、代替方法の提案は出来ません。

提案が欲しいなら「なぜパラメーターが必要になってしまったのかの理由」を明記して下さい。

それが明記されれば「パラメーターを使わないで解決する方法」を思考する事が可能です。

お礼

下記の様なことを考えています。
顧客テーブル
　顧客ID
　氏名
　電話番号
コード
　（１）sub S1(電話番号） で、フォームに同じ電話番号（家族等）をリスト
　（２）上記フォームで、特定の一人の行をクリック ← ここで Call S2(顧客ID)
　（３）sub S2(顧客ID) では、顧客IDで抽出してフォームに表示
を考えていました。
所が、明確に「出来ません」と言われてみて気が付いたら、どうも（２）で
フォームに移った時点で、変数、顧客IDは生きていないのではと考えるように
なりました。
明確に「出来ません」と言って頂き、本当にありがとうございました。

補足

早速のご回答、ありがとうございました。
明確にできないと言うことでした、或いは私がやろうとしているロジックが根本的に勘違いしていることも考えられます。
やりたいことをもう一度整理してみます。
ただ、たった今仕事が入ってしまったので、2，3日後に連絡いたします。
とにかく、ありがとうございました。

回答No.2

山田 太郎（@f_a_007）

例えば、

・モジュール内に通用する変数の値をセットする。
・各Clickイベントでセットした値を利用したい。

というのが目的ではなくて・・・。

・各コントロールのClickイベントにコードを書くことをしない。
・そうではなく、Accessが生成するClickイベント以外を利用したい。
・つまり、自分が用意したClickイベントで処理をしたい。
・そのイベントで用いる値はSET()でセットしたい。
・もって、各コントロールに共通の独自のClickイベント処理を行いたい。

具体的には、

１、あるコントロールで値を選ぶ。
２、Set()でその値をクラス変数にセットする。
３、そうするとクリックした各コントルールでその値を利用した処理がなされる。

という仕組みを実現するには？

という質問であれば・・・。それは、独自のクラスライブラリを作成するしかありません。

お礼

お返事、ありがとうございました。
chie65535さんとのやり取りでもお分かりと思いますが、VBAはよちよち歩きでして、
クラスライブラリを作る力はありませんので、何とか別の方法を考えます。