Windows8 & Office2013 Access2013

Print Friendly, PDF & Email

埋め込みマクロのコード変換

投稿日:2017年1月20日 更新日:

Access2007以降(拡張子accdb)では、[コマンドボタンウィザード]や[マクロビルダー]を使ってボタンを作成すると、[埋め込みマクロ]が作成されます。
通常の独立マクロであれば、[マクロをVisualBasicに変換]でコードに変換できるのですが、この埋め込みマクロは変換できません。ただ、埋め込みマクロの仕様は見ることができるので、一度 埋め込みマクロをマクロ作成で作成し直し、VisualBasicに変換することはできます。
参考拡張子がmdbの場合は、イベントプロシージャとなりますのでコードを確認できます。

レコードの検索ボタンをウィザードで作成

ここでは、[レコードの検索]ボタンを作成します。
フォームをデザインビューで開き[デザイン]タブの[ボタン]をクリックします。このとき[コントロールウィザードの使用]はオンにしています。(既定)
コマンドボタンの作成

[コマンドボタン ウィザード]から[レコードの移動]と[レコードの検索]を選択して[次へ]ボタンをクリックします。
コマンドボタンウィザード

[文字列]を選択して、[次へ]ボタンをクリックします。
コマンドボタンウィザード

ボタン名を付けて、[完了]ボタンをクリックします。
コマンドボタンウィザード

フォームのデザインビューには、レコードの検索ボタンが作成され、ボタンのプロパティ、イベントには、[クリック時]に[埋め込みマクロ]と表示されます。
埋め込みマクロ

フォームビューに切り替えて、[レコードの検索]ボタンをクリックすると、[検索と置換]ダイアログボックスが表示されます。
レコードの検索

埋め込みマクロの詳細

デザインビューで、この埋め込みマクロの詳細をみてみます。[埋め込みマクロ]右横の[…]ボタンをクリックします。
プロパティ

下のようになっています。
埋め込みマクロ

埋め込みマクロの[マクロをVisualBasicに変換]ボタンは無効

でも、コードに変換しようとしても[マクロをVisualBasicに変換]ボタンは無効です。
マクロをVisualBasicに変換ボタン

独立マクロの作成

通常のマクロであればコードに変換は出来るので、埋め込みマクロを参照して同じマクロを作成します。[作成]タブの[マクロ]をクリックします。
マクロの作成

埋め込みマクロと同じようにアクションを設定して、マクロに名前を付けて保存します。
マクロに名前を付けて保存

独立マクロをVisualBasicに変換

作成したマクロをデザインビューで開き、[マクロをVisualBasicに変換]ボタンをクリックします。
VisualBasicに変換

ウィンドウが表示されますので、[変換]ボタンをクリックします。
マクロの変換

VBEが開き、変換されたコードを見ることができます。
変換されたコード

参考Officeのバージョンによって操作が異なる場合があります。以下の記事で、お使いのOfficeのバージョンを確認する方法を解説しています。

Office(Word、Excel、PowerPointなど)のバージョンを確認する方法

Microsoft Officeも時を得て、大きく様変わりしてきました。トラブルを解決しようとするとき、あるいは、何かの操作を探すときなど、 ...

続きを見る

あなたへのおすすめ

関連記事

段落を罫線で囲む

段落を罫線を囲む方法です。 段落の選択 罫線で囲みたい段落を範囲選択します。 線種とページ罫線と網かけの設定 [デザイン]タブの右端にある[ ...

クイックアクセスツールバーにプロパティを追加

Accessでデータベースを作りこんでいくうちにバックアップを取ったり、保存先を変更したりしていると、今、どのデータベースを開いているのかし ...

全てのグラフに引き出し線を表示

Excel2010までは、引き出し線は円グラフのみに表示できたのですが、Excel2013ではすべてのグラフで表示することができるようになり ...

重複データの入力を禁止するには

Excelで1つの列に重複した値を入力できないように規制する方法を紹介します。Excel2013で解説しますが、他のバージョンも同じ方法で設 ...

おすすめグラフに複合グラフを表示するには

Excel2013のおすすめグラフはとても便利です。 複合グラフの作成ならExcel2013の「おすすめグラフ」が便利 複合グラフですが、あ ...

-Windows8 & Office2013 Access2013

Copyright © 2001-2017 初心者のためのOffice講座 All Rights Reserved.

Copyright© 初心者のためのOffice講座 , 2017 AllRights Reserved Powered by AFFINGER4.