Access2010 ランタイム 右クリックでショートカットメニュー

年末、久々にマイクロソフトのAccessで小規模システムを作ってみました。
Accessって2007以降はランタイム版をインストールしておけば、ライセンス無しでも実行のみ可能なので、今回、accessライセンスをお持ちでないお客様向けプロダクトとして、Access2010でシステム構築。

で、一通り開発環境においてのテストを完了したあと、ランタイム版でのテストを実施してみたのですが、ランタイム版の場合、デフォルトでは右クリックでショートカットメニューが表示されません。
フォーム形式でよくある伝票入力形式（メインフォームでヘッダー情報入力、サブフォームで明細行入力ってやつ）のサブフォームで右クリックして明細行コピーって動作が出来ない。

これって、下記の方法で解決できたのですが、なぜか「access ランタイム 右クリック ショートカットメニュー」とか「access2010 ランタイム 右クリック ショートカットメニュー」とかでgoogle先生に聞いても、なんだか小難しい方法の解決策しか出てこない。

っちゅうことで、とりあえず、うちでは下記の方法で明細行で「右クリック、ショートカット表示」出来るようにしてみました。



サブフォームのフォームデザインで、「選択の種類：フォーム」を選択して、イベントの「マウスボタンクリック時」のイベントプロシジャーに下記のコードを記述します。
（上記画像の赤丸部分参照。画像はメインフォームデザインの中からサブフォームデザインを開いたイメージです。）


If Button = acRightButton Then
Application.CommandBars("Form Datasheet Cell").Showpopup
End If


たったこれだけです。
まぁ簡単なので、お試しあれ。