Microsoft Access 掲示板

プロシージャの使い方

14 コメント

views

4 フォロー

先ほど投稿したのですが１点間違いに気がつきました。プロシージャの Exit Subは他の箇所には無効となりますね。
そこを修正して試してみます。それで上手く行かないときはまた投稿します。
宜しくお願いします。

回答の前に、その「モジュール」はどのように作られたものですか？

（VBAとしてという意味ではなく）一般的には、そのプロシージャは動きません。構文エラーが発生します

https://www.google.com/search?q=option explicit
VBEのオプション設定のお勧めを徹底解説(hatena chipsさん)

KeyCode = 0 でキー入力をキャンセルしようとしているのだと思いますが、残念ながらそれでは動きません。

キークリック時の自動生成されるイベントプロシージャをみると、下記のようになっています。

Private Sub テキスト0_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

引数に KeyCode というのがありますが、この引数に 0 を代入することでキー入力がなかったことになります。
別のプロシージャ内の変数 KeyCode とは何の関連もないので、別のプロシージャで KeyCode=0 としても意味はないです。

このような場合は、別プロシージャで、イベントプロシージャの KeyCode を参照渡しで渡せば、別のプロシージャ内でも、KeyCode にアクセスできるようになります。

フォームモジュール

Private Sub proKey1(ByRef KeyCode As Integer)
    If KeyCode = 9 Or KeyCode = 17 Or KeyCode = 67 Then 'Tab･Ctrl･C ｷｰのみ使える
       Exit Sub
    Else
       KeyCode = 0  'Tab･Ctrl･C ｷｰ以外は禁止
    End If
End Sub

Private Sub コンボ_KeyDown(KeyCode As Integer, Shift As Integer)
    Call proKey1(KeyCode)
End Sub

引数には値渡し(ByVal)と参照渡し(ByRef)がありますが、その違いについてはWEB検索して研究してみてください。

hirotonさん：ありがとうございます。最初のコード記述（プロシージャ）は対象フォーム内のVBA画面の一番最後にしました。構文エラーはでなかったのですがCallで機能しませんでした。VBEお勧めもありがとうございます。じっくり読んで参考にします。
hatenaさん：ありがとうございます。そういう事だったのですね。戻り値のTrue、Falseをコード内に設定しても機能しないので再質問しようと思ってました。フォームモジュールとしての作成方法分からなかったので挿入→クラスモジュールに下記を記述しました（クラスモジュールのClass1に作成されました）
　　 If KeyCode = 9 Or KeyCode = 17 Or KeyCode = 67 Then 'Tab･Ctrl･C ｷｰのみ使える
       Exit Sub
    Else
       KeyCode = 0  'Tab･Ctrl･C ｷｰ以外は禁止
    End If
そして
　　Private Sub コンボ_KeyDown(KeyCode As Integer, Shift As Integer)
    　Call proKey1(KeyCode)
　　End Sub
試しにキー入力すると”コンパイルエラー：Sub、Function、または Property が定義されていません。(Error 35)”
となりました。
⇒モジュールの作成が間違えていると思うのですが知識不足で解決出来てません。（すみません）

記述位置は

対象フォーム内のVBA画面の一番最後

で合ってますよ。「フォームモジュール」がそこのことです

Private Sub proKey1()

'//KeyCodeが変数宣言されていない

  'プロシージャの作成(名前：proKey1)
    If KeyCode = 9 Or KeyCode = 17 Or KeyCode = 67 Then 'Tab･Ctrl･C ｷｰのみ使える
       Exit Sub
    Else
       KeyCode = 0  'Tab･Ctrl･C ｷｰ以外は禁止
    End If
End Sub

質問のコードはKeyCodeが謎の存在です。VBA自体は変数宣言は必須ではありませんが、一般的にはOption Explicit宣言により変数宣言を強制します。エラーが出ないということはOption Explicit宣言がないということですが、基本的に使わないメリットよりも使うメリットが優る機能です。より深い知識を学ぶよりも先に、基本的にやって当たり前のことはできるようにしましょう

hatenaさんの回答が答えですが、変数とは、名付けに従って思った通りに動くようなものではありません。KeyCodeと記述したからと言って、思った通りのKeyCodeになるわけではないのです。思った通りに動くように、指示・命令・操作をしてあげなければなりません

今回は、（コピペで解決するような）思ったような動作が組めたかったことよりも、謎の存在を生み出してしまったこと、また、それが謎の存在であると気づけなかったことのほうがよほど大きな問題でしょう

hirotonさん　ありがとうございます。モジュール以前の事でした。変数宣言の重要性もわかりました。コピペだけで分かったつもりになってました。いつもプロパティからイベントでコード記述してたので今回も自動的にKeyCodeが変数になっている認識がありませんでした。Private Sub ***のあとの()内も大きな意味があるのですね。cancelなんかもそうなのですね。
hatenaさんの回答の意味もようやくわかりました（ByRefにしないとやりとり出来ない）。⇒コードを正しく記述したら今回の事は解決しました。
今回のプロシージャ作成も単純にコードを短縮文字に置き換えてるだけという認識しかありませんでした。もっともっと深いものでした。まだまだ浅いところしか理解できてないと思いますが、色々きずかせて頂きありがとうございました。

そうですね。モジュール（VBA記述画面）だけを見ていると理解できないんですが、各コントロールのプロパティで[イベントプロシージャ]を指定して自動生成できるプロシージャはその引数に特別な意味を持つ特別なプロシージャになります

これらは、コントロール名_イベント名（[引数]）の書式になり（引数はイベントによりあったりなかったり）自動生成せずに、モジュールで直接記述（コピペ）してからコントロールに[イベントプロシージャ]を設定しても同じです。データ上はただのテキストでしかありません

このようなちょっと理解しにくい仕組みの上で、コンボ_KeyDownプロシージャの中でKeyCodeを操作すると、実際のACCESS上でのキー入力を制御できるという仕組みが成り立っています

前の質問でも少し言葉が出ましたが、「スコープ」が問題になります

Private Sub コンボ_KeyDown(KeyCode As Integer, Shift As Integer)

End Sub

「このプロシージャで宣言されているKeyCodeという引数を操作することにより、ほにゃららできる」というのが諸々の趣旨になりますが、引数はそのプロシージャの中でのみ有効です
hirotonの指摘の本質ですが、「コンボ_KeyDownプロシージャの中で記述したKeyCodeのみ」が、その時のキー操作の制御に影響します。その他の場所で記述されたKeyCodeは、それが有効となる宣言方法に従って動作します

やりたいことは「コンボ_KeyDownプロシージャの中KeyCodeの操作」なので、どんなに他の場所でKeyCodeの変数宣言を行っても「コンボ_KeyDownプロシージャの中KeyCode」を変更することはできません。これは、不意の動作が行われないように守られているとも言えますし、「KeyCode」という簡単な名前を至る所で使うことに問題がないようになっているとも言えます。これが、スコープ問題というやつです

ここまで理解した上でようやく、スコープが制限されている値を変更するためにはどうしたらいいか？スコープを跨ぐ方法は？となります。ここまで来れば、hatenaさんの回答につながる（回答を見て理解できる）でしょう

こんな回りくどい話になるつもりじゃなかったんですが・・・

エラーが出てないとなると、モジュールレベルでKeyCodeを変数宣言してるとかなんですかねぇ

プロシージャを分割して、元のプロシージャの値を使いたいってだけなら引数で渡せばいいよで済んだんですが

Private Sub コンボ_KeyDown(KeyCode As Integer, Shift As Integer)
    Call proKey1(KeyCode)
End Sub

Private Sub proKey1(c As Integer)
    Select Case c
    Case 9, 17, 67
        '何もしない
    Case Else
        c = 0
    End Select
End Sub

Function+戻り値にするかどうかは悩みどころ

よくわからないけどエラーも出ずに処理が終わるコードが出来上がってしまったほど怖いものはないですねぇ

まずは基本が理解できていないと、このスレッドの内容の理解は難しいかな。
私の説明もかなり端折ってますので。
すこしでも理解の助けになるように補足説明をしておきます。

まず、引数と何かを理解するようにしましょう。
一言では説明しきれないので「VBA 引数」でWEB検索して研究してみてください。
例えば、下記とか。
【Excel VBA入門】引数とは｜エクセルマクロ | Gakushiki

引数がある程度理解出来たら、次はイベントプロシージャの引数ですが、
これは普通のプロシージャの引数とは少し違う働きをします。

例えば、キークリック時の場合は、

Private Sub コンボ_KeyDown(KeyCode As Integer, Shift As Integer)

の KeyCode As Integer, Shift As Integer の部分が引数になりますが、
KeyCode引数にはキーを押したときにどのキーを押したのかの情報が入っています。
Shift引数は、Shiftキー、Ctrlキー、Altキーが押されているかどうかの情報が入ってます。

さらに、この引数に値を代入することで、別のキーが押されたことに変更することもできます。

keyCode ＝ vbKeySpace

とするとどのキーを押してもスペースキーが押されたことになります。そして、

keyCode ＝０

とすると何もキーが押されなかったことになると決められています。

イベントにより引数があるものとないものがあります。これは決まっているのでユーザーが勝手に引数をいれることはできません。

他に、例えばフォームを開くときのイベントプロシージャなどのようにCancel引数があるものもあります。
このようなイベントは

Cancel = True

というようにTrueを代入するとイベント自体をキャンセル(なかったことにする)できます。
つまりフォームは開くことができないということになります。

このようにイベントプロシージャの引数は他のプロシージャの引数とはすこし役割が異なります。

次に、引数の値渡し(ByVal)と参照渡し(ByRef)の違いについて理解する必要が出てきます。
これもなかなか難解な概念なので、ここで説明するより「VBA ByVal ByRef」をキーワードに検索して、
いろいろなページで研究してください。

上のhirotonさんの投稿内で、下記のコードがありますが、

Private Sub proKey1(c As Integer)

これは、

Private Sub proKey1(ByRef c As Integer)

と同じコードになります。By〇〇を省略したときは、ByRef になるというのがVBAの仕様なのです。
つまり、参照渡しをしていることになります。

参照渡しとは、簡単にいうと、変数そのものをそのまま渡しているということです。
いいかえると、一つの変数を別の場所から見たり、触ったりしているということです。
(これで伝わっているかな？)

つまり、下記の「これ」で指し示したものは、全て同じものです。

Private Sub コンボ_KeyDown(KeyCode As Integer, Shift As Integer)
                           ↑これ
    Call proKey1(KeyCode)
                 ↑これ
End Sub

Private Sub proKey1(c As Integer)
                    ↑これ
    Select Case c
    Case 9, 17, 67
        '何もしない
    Case Else
        c = 0
        ↑これ
    End Select
End Sub

つまり、
proKey1内で、

c = 0

としたということは、
コンボ_KeyDown内で、

keyCode ＝ 0

としたことと同じ意味になるということです。

なんか回りくどい説明になりましたが、少しは理解の助けになったでしょうか。

アレです。正直何も分からないままやってしまってもいいんじゃないかなって内容なんですよね。デフォルトがByRefだからとかそういうのも
VBAの使い始めなんかそのくらい適当でいいと思っているので

エラーが出ないのが不思議だと何回か指摘していますが、「なんでもかんでもOn Error～していてうまくいっていないのにどこが原因か分からない」と同じ匂いを感じるんですよね。普通にやっていればそもそも動かないってこけているはずなので

hiroton自身も特別なとは言っていますが、イベントプロシージャの引数は別に他のプロシージャと比較して特別なモノでもないんじゃないですかね。それこそ「記述を省略した参照渡し」なので

大元の参照元（コントロールのイベント実行）から呼び出されるにあたって、「参照渡し」で引数を定義しているので、このプロシージャ内で操作した結果は元になるイベントの情報をそのまま書き換えている。と、それだけかと
大元の参照元が隠されているというだけで、プロシージャとしての動きは特別なモノでもないと思います

hirotonさん・hatenaさん　丁寧な解説ありがとうございます。大変参考になります。まだまださわりしか理解してませんが自分なりにイメージしました。今回の流れはおおざっぱには下記でしょうか？（間違いならすみません）
１：コンボキーダウン時に（プロシージャ）proKey1を呼び出し押されたキー内容を（変数）KeyCodeに入れてproKey1に引数として渡す
２：proKey1はKeyCodeを受取りそれは共有できている引数Ｃとして条件分岐をする
３：２の結果をコンボキーダウン時に返す。

hirotonさんのproKey1の引数ＣとしてKeyCodeと共有させているのはスコープ（範囲）対策でKeyCodeという変数を使わない様にするためでしょうか？（この解釈も間違いならすみません）

ACCESSの便利さが好きで自分で色々制御できるといいなと思い勉強中です。少しづつの理解しか出来ませんが頂いた回答はネットや本には載ってないような達人の生の意見は本当に貴重に思ってます。

hirotonさんのproKey1の引数ＣとしてKeyCodeと共有させているのはスコープ（範囲）対策でKeyCodeという変数を使わない様にするためでしょうか？（この解釈も間違いならすみません）

プロシージャ内で宣言された変数(引数も含む)は、そのプロシージャ内でのみ有効、つまり他からは参照できないです。
スコープは Sub から End Sub までの範囲です。
つまり、コンボ_KeyDown内で宣言された変数(引数も含む)と、proKey1内で宣言された変数(引数も含む)ではスコープが異なるので、同じ変数名でも問題ないです。もちろん違っても問題ないです。

同じ名前を使うか、異なる名前にするかは、プログラマーの好みだと思います。
私は、参照渡しの場合は、同じものを共有することになるので、同じ名前にしておくことが多いです。

質問内容の経緯から、適切な宣言と、それに従った運用が必要であると示すためです

以下、要点を挙げてみると
（参照渡しの）引数によって、スコープを跨いで同じデータを扱うこと。
プロシージャを作ると、新たなスコープが作られること。
異なるスコープでは、そのスコープで使える名前を正しく把握する必要があること。

proKey1で名前だけ同じKeyCodeを記述しても、それはコンボ_KeyDownのKeyCodeではないということですね。（そうなるよう記述しなければ）

スコープ（範囲）対策でKeyCodeという変数を使わない様にする

proKey1はスコープが異なるのでKeyCodeという「名前」はproKey1の中で自由に（新たに）使えます。解説目的（質問への回答目的ではない）でcと表記していますが、普通に組んだらPrivate Sub proKey1(KeyCode As Integer)とする（そうなるよう記述する）と思います

hirotonさん・hatenaさん　ありがとうございました。納得しました。参照渡しでしておいたら同じ名前でも違う名前でも共有できるのですね。スコープとは関係のない事でしたね。
こつこつ勉強していきます。

タグリスト

VBA (366) Office2016 (291) フォーム (227) Office2021 or 2019 (221) クエリ SQL (211) テーブル (134) レポート (123) Office2013 (56) Office2010 (46) Microsoft365 (42)

Markdown テーブル生成

Accessのテーブルやクエリのデータを貼り付ける場合は下記で、Markdown書式のテーブルに変換して貼り付けてください。

Markdown Tables generator

ファイル送信フォーム

掲示板で必要なサンプルファイルは下記のフォームから送信してください。

Microsoft Access 掲示板用ファイル送信

Microsoft Access 掲示板

プロシージャの使い方

最新トピック

タグリスト

Markdown テーブル生成

ファイル送信フォーム