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

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

例

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

'パスワード 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をキャンセルする