スキルアップ・問題解決なら、モーグにおまかせ！

● 概要 ●
フォームのOpenイベントは、フォームを開く操作をしたとき、最初のレコードが表示される前に発生します。イベントプロシージャは、OnOpen/開く時プロパティに設定します。
Openイベントプロシージャの引数にTrueを設定すると、Openイベントをキャンセルすることができます。
次のコードは、フォームのOpenイベントプロシージャです。フォームを開くときにパスワードを確認し、パスワードが間違っていた場合、引数にTrueを設定して、Openイベントをキャンセルするものです。パスワードが正しければ、フォームを開きます。ここでは、パスワードとして「password」と比較しています。


● サンプル ●
'フォームを開く操作をキャンセルする
Private Sub Form_Open(Cancel As Integer)
    Dim myPassWord As String
    'パスワードを確認する
    myPassWord = InputBox("パスワードを入力してください")
    '入力されたパスワードが違っていた場合
    If myPassWord <> "password" Then
        MsgBox "パスワードが違います", vbCritical
        'フォームを開く操作をキャンセルする
        Cancel = True
    End If
End Sub


● 実行結果 ●
インプットボックスに「password」以外の文字列を入力した場合、フォームは開きません。「password」と入力した場合は、フォームが開きます。