リンクユニット

Windows8 & Office2013 Access2013

Print Friendly, PDF & Email

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

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

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

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

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

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

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

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

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

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

埋め込みマクロの詳細

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

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

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

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

独立マクロの作成

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

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

独立マクロをVisualBasicに変換

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

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

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

解決できないことは【teratail】で質問してみましょう。

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

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

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

続きを見る

アクセスを学習するなら、一度は読んでおいたほうがよい本です。

おすすめ記事と広告

こんな記事も読まれています

削除済みアイテムフォルダーを空にする

Outlook2013で削除済みアイテムフォルダーを空にする方法です。 終了時に削除済みアイテムフォルダーを空にする Outlookを終了す ...

IE11への自動アップグレードを無効にする

Internet Explorer10からInternet Explorer11への自動アップグレードを無効にする方法です。 バージョン情報 ...

複数のセルの値を一気に100万倍にするには

Excelで表内のセルの数値を単純にN倍したいと言う場合の簡単な方法です。 今回の質問は、大きな表内のセルの値を一気に1000000倍(百万 ...

非表示のまま貼り付け

Excelで下のような表があって、[東京都]のデータのみを非表示にして、その表を別のシートへ貼り付けたい場合がありますね。その方法をExce ...

削除できない名前がある

Excelのワークシートで使用していない名前があるので、削除したいと思い[数式]タブにある[名前の管理]をクリックして、[名前の管理]ダイア ...

-Windows8 & Office2013 Access2013

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

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