【Access】フォームOpenをキャンセルする

フォームを開くときに何かの理由でキャンセルしたい場合があったりします。
そういった場合、Openイベントプロシージャの引数CancelをTrueにします。

例

次の例では、フォームOpen時にInputBoxでパスワードを入力させ、パスワードが一致していた場合だけフォームを開くようにしています。

'パスワード
Private Const PWD As String = "tako"

Private Sub Form_Open(Cancel As Integer)

    Dim pass As String
    
    pass = InputBox("パスワードを入力してください。")
    
    If pass <> PWD Then
    
        MsgBox "パスワードが間違っています。" & vbCrLf & "フォームを開くことが出来ませんでした。", vbExclamation, "警告"
        
        'キャンセル
        Cancel = True
    
    End If
    
End Sub

実行結果

スポンサーリンク

https://hosopro.blogspot.com/2017/10/access-vba-form-open-cancel.html 【Access】フォームOpenをキャンセルする