Set MyInspector =
Item.GetInspector
strPw = InputBox("パスワードを入力してください","確認")
if strPw = "flower" then
MyInspector.SetCurrentFormPage("経理")
Else
Msgbox "パスワードが違います"
End if |
★Inspectorオブジェクトを取得
★ダイアログを表示
し、入力パスワードはstrPwに格納
★入力された値が”flower”だったら
★「経理」ページを表示
★入力された値が”flower"でなかったら
★「パスワードが違います」というメッセージを表示
|