パスワードを入力するとフォームを開く : Access

パスワード入力フォームを作成し、正しく入力されていれば別のフォームを開きます、正しくなければメッセージを表示し入力ボックスにフォーカスを戻します。

Homeへ戻る　

テクニックへ

パスワードを入力するテキストボックスと、ログインするコマンドボタンから成るフォームを作成します。

パスワードが入力されずにログインボタンをクリックすると「パスワードを入力してください」とメッセージが表示されます。

パスワードが違うと「パスワードが違います」とメッセージが表示されます。

正しいパスワードを入力すると別のフォーム（ここでは会員管理フォーム）が開きます。
会員管理フォームが開きます

Access VBAコード

Option Compare Database

Private Sub Form_Load()
    Me!テキスト0.InputMask = "password"
End Sub

Private Sub コマンド2_Click()
    If Me!テキスト0.Value = "pass" Then
        DoCmd.Close
        DoCmd.OpenForm "F_会員管理"
    ElseIf IsNull(Me!テキスト0) = True Or Me!テキスト0.Value = "" Then
        MsgBox "パスワードを入力してください"
        Me!テキスト0.SetFocus
    Else
        MsgBox "パスワードが違います"
        Me!テキスト0.SetFocus
    End If
End Sub

関連記事
フォームの簡単作成方法