リンクユニット

Windows8 & Office2013 Access2013

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

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

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

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

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

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

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

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

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

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

埋め込みマクロの詳細

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

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

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

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

独立マクロの作成

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

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

独立マクロをVisualBasicに変換

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

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

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

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

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

続きを見る


おすすめ記事と広告

記事を更新しました

表を削除して文字列だけ残すには

表は削除したいけど、セル内の文字列は残したいということがあります。 こういう場合は、[表の解除]ボタンを使います。 表の解除 まず、表内でク ...

段組みと段組みの境界線

長い文章は段組みにすると、ページ数を少なくすることができます。また、段と段の間に境界線を表示することもできます。 [ページレイアウト]の[段 ...

リンクテーブルのリンク先変更

Accessのテーブルで下のようにアイコンの左側に矢印がついていれば、これはリンクテーブルです。 メッセージの表示 このリンクテーブルを開こ ...

マウスで罫線を引く

Word2013で[罫線を引く]コマンドは[ホーム]タブ、[レイアウト]タブ、[デザイン]タブの3か所にあります。 [ホーム]タブの[罫線] ...

カタカナは全角で数字は半角にしたい

Excelでカタカナは全角で、数字は半角にしたいという場合があります。 たとえば、住所でマンション名のカタカナは全角のままで、番地や部屋番号 ...

-Windows8 & Office2013 Access2013

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

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