MessageBox マクロ アクション
適用先: Access 2013、Office 2013
" MessageBox/メッセージボックス " アクションを使用すると、警告または情報メッセージが含まれるメッセージ ボックスを表示できます。 たとえば、" MessageBox/メッセージボックス " アクションは入力検査マクロで使用できます。 コントロールまたはレコードがマクロの入力検査の条件に適合しない場合は、メッセージ ボックスが表示され、エラー メッセージと入力できるデータの種類に関する説明が示されます。
設定
MessageBox/メッセージボックス アクションの引数は次のとおりです。
アクションの引数 |
説明 |
|---|---|
Message |
メッセージ ボックス内のテキストです。 [マクロ ビルダー] ウィンドウの [アクションの引数] セクションにある [メッセージ] ボックスに、メッセージ テキストを入力します。 255 文字までの文字列または式を入力できます (式の前には等号 (=) を付けます)。 |
Beep |
メッセージが表示されるときにコンピューターのスピーカーから警告音を鳴らすかどうかを指定します。 [はい] (警告音を鳴らす) または [いいえ] (警告音を鳴らさない) をクリックします。 既定値は [はい] です。 |
型 |
メッセージ ボックスの種類を指定します。 種類ごとにアイコンが異なります。 [なし]、[警告]、[注意?]、[注意!]、または [情報] をクリックします。 既定値は [なし] です。 |
Title |
メッセージ ボックスのタイトル バーに表示されるテキストです。 たとえば、タイトル バーに "カスタマー ID の検証" と表示できます。 この引数を指定しないと、"Microsoft Access" が表示されます。 |
注釈
" MessageBox/メッセージボックス " アクションを使用すると、Microsoft Access によって表示される組み込みエラー メッセージに似た書式のエラー メッセージを作成できます。 " MessageBox/メッセージボックス " アクションにより、"Message/メッセージ" 引数の 3 つのセクションにメッセージを入力できます。 各セクションは "@" 記号で区切ります。
次の例では、セクション化されたメッセージを含む書式設定されたメッセージ ボックスを表示します。 メッセージ内のテキストの最初のセクションは、太字の見出しとして表示されます。 2 番目のセクションは、その見出しの下にプレーン テキストとして表示されます。 3 番目のセクションは、2 番目のセクションの下にプレーン テキストで表示され、その間に空白の行が表示されます。
" Message/メッセージ " 引数に次の文字列を入力します。
間違ったボタン!@This ボタンが機能しません。@Try 別の。
Visual Basic for Applications (VBA) モジュールでは " MessageBox/メッセージボックス " アクションを実行することはできません。 代わりに MsgBox 関数を使用します。
例
マクロによるフォームの同期
次のマクロは、[仕入先] フォームの右下に [製品リスト] フォームを開き、現在の仕入先の商品を表示します。 このマクロは、" Echo/エコー "、" MessageBox/メッセージボックス "、" GoToControl/コントロールの移動 "、" StopMacro/マクロの中止 "、" OpenForm/フォームを開く "、および " MoveAndSizeWindow/ウィンドウの移動とサイズ変更 " の各アクションの使い方を示します。 また、" MessageBox/メッセージボックス "、" "GoToControl/コントロールの移動 "、" StopMacro/マクロの中止 " の各アクションで条件式を使用する方法も示しています。 このマクロを [仕入先] フォームの [商品の参照] ボタンに割り当てる必要があります。
条件 |
アクション |
引数: 設定値 |
コメント |
|---|---|---|---|
Echo |
Echo On/エコーの設定: いいえ |
画面の更新は停止しますが、マクロは実行されています。 |
|
IsNull([SupplierID]) |
MessageBox |
Message/メッセージ: 表示する商品を扱う仕入先のレコードに移動し、[商品の参照] ボタンを再度クリックします。 Beep: YesType: NoneTitle: サプライヤーを選択する |
[仕入先] フォームに現在の仕入先が存在しない場合、メッセージを表示します。 |
... |
GoToControl |
Control Name/コントロール名: 会社名 |
フォーカスを [仕入先名] コントロールに移動します。 |
... |
StopMacro |
マクロを停止します。 |
|
OpenForm |
フォーム名: 製品リスト ビュー: DatasheetFilter Name: Where Condition: [SupplierID] = [Forms]![Suppliers]![SupplierID] データ モード: 読み取り専用ウィンドウ モード: 標準 |
[製品リスト] フォームを開き、現在の仕入先の製品を表示します。 |
|
MoveAndSizeWindow |
Right/右: 0.7799" Down/下: 1.8" |
[製品リスト] を [仕入先] フォームの右下に配置します。 |
マクロによるデータの入力検査
次の入力検査マクロでは、"仕入先" フォームで入力された郵便番号を確認します。 このマクロでは、" StopMacro/マクロの中止 "、" MessageBox/メッセージボックス "、" CancelEvent/イベントのキャンセル "、および " GoToControl/コントロールの移動 " の各アクションの使い方を示します。 条件式では、フォームのレコードに入力された都道府県と郵便番号を確認します。 都道府県に対して郵便番号が正しく入力されていない場合、マクロはメッセージ ボックスを表示して、レコードの保存を取り消します。 その後、PostalCode コントロールに戻り、エラーを修正することができます。 このマクロは "仕入先" フォームの "BeforeUpdate/更新前処理" プロパティに設定します。
条件 |
アクション |
引数: 設定値 |
コメント |
|---|---|---|---|
IsNull([CountryRegion]) |
StopMacro |
[都道府県] の値が Null の場合は、郵便番号を検証できません。 |
|
[CountryRegion]In ("France","Italy","Spain") and Len([PostalCode]) <> 5 |
MessageBox |
Message/メッセージ: 郵便番号は 7 文字である必要があります。 Beep: YesType: InformationTitle: Postal Code Error |
郵便番号が 7 文字でない場合にメッセージを表示します。 |
... |
CancelEvent |
イベントを取り消します。 |
|
GoToControl |
Control Name/コントロール名: 郵便番号 |
||
[CountryRegion]In ("Australia","Singapore") and Len([PostalCode]) <> 4 |
MessageBox |
Message/メッセージ: 郵便番号は 7 文字である必要があります。 Beep: YesType: InformationTitle: Postal Code Error |
郵便番号が 7 文字でない場合にメッセージを表示します。 |
... |
CancelEvent |
イベントを取り消します。 |
|
GoToControl |
Control Name/コントロール名: 郵便番号 |
||
([都道府県] = "広島県") And ([郵便番号] Not Like"[A-Z][0-9][A-Z] [0-9][A-Z][0-9]") |
MessageBox |
メッセージ: 郵便番号が無効です。 カナダコードの例: H1J 1C3 Beep: YesType: InformationTitle: Postal Code Error |
郵便番号がカナダに適していない場合は、メッセージを表示します。 (カナダのコードの例: H1J 1C3) |
... |
CancelEvent |
イベントを取り消します。 |