読者です 読者をやめる 読者になる 読者になる

よくかんでたべること

そのままのみこまずに、ね。

Access Web App : ユーザーからのはい/いいえ を受け取りたい

Access Web Appのメッセージボックスはメッセージを表示させてOKのみ受け付けます。
vbYes/vbNoで分岐させたいので自作してみました。ポップアップをメッセージボックスに見立てます。

材料

  • 問いかけメッセージ受け渡し用変数 (以下、global_message)
  • Boolean受け渡し用変数 (以下、global_yesno)
  • UIマクロ
  • 空のビュー

1)

起動時マクロにて

  • global_message
  • global_yesno

を初期化(どちらにもNullを設定)します。

2)

ポップアップ用のカラのビューを作成します。
ビューには

  • 問いかけメッセージ表示用ラベル
  • はいボタン
  • いいえボタン

を追加します。
(※スクリーンショットする際に選択状態になってしまい色がついております。)
f:id:kanariya0922:20151225002501p:plain

3)

このビューの読み込み時には

  • global_message を 2)で作成した 問いかけメッセージ表示用ラベルに値を設定
  • global_yesno は Null で初期化

します。
f:id:kanariya0922:20151225010412j:plain

4)

はいボタンのクリック時にglobal_yesnoにYesを設定し、最後にポップアップを閉じる処理をいれてください。
f:id:kanariya0922:20151225001137j:plain

5)

いいえボタンのクリック時にglobal_yesnoにNoを設定し、最後にポップアップを閉じる処理をいれてください。
f:id:kanariya0922:20151225001138j:plain
これでビューの作業は終わりです。

6)

2)から5)で作成したビューをポップアップとして表示するUIマクロを作成し保存します。
f:id:kanariya0922:20151225001139j:plain

7)

最後に、実行するイベント(今回はボタンクリックで呼び出しています)にて

  1. global_message に表示させたいメッセージを設定
  2. 6)で作成したUIマクロを実行
  3. global_yesnoの判別を処理

f:id:kanariya0922:20151225010438j:plain
ちなみに、はいいいえ以外 ✕をクリックしてポップアップを閉じた場合は上のようにElseで処理を拾えました。

以上です。