2008年3月9日日曜日

Access でダイアログボックスを表示して、ユーザに Yes, No を選択させる

MsgBox 関数 を利用し、引数に vbOKCancel をとる。

MsgBox(prompt [, buttons ] [, title ] [, helpfile ] [, context ] )

prompt 必ず指定します。ダイアログ ボックス内にメッセージとして表示する文字列式を指定します。引数 prompt に指定できる最大文字数は、1 バイト文字で約 1,024 文字です。

vbOKCancel [OK] ボタンと [キャンセル] ボタンを表示します。

(MsgBox 関数 - Access - Microsoft Office Online より)

. レコードを削除する前に、ユーザに確認をとるためのダイアログを表示する。

If (MsgBox("本当に削除してもよろしいですか?", vbOKCancel) = vbCancel) Then
   Exit Sub
End If

   ' 処理を続ける...

080309-001

関連サイト