Accessでパスワードを入力して、パスワードが合えばフォームを開くようにする方法です。
注意ここでは、Accessのオプションでウィンドウを重ねて表示する設定にしています。
パスワード入力用フォームの作成
パスワード入力用のフォームを作成します。
［作成］タブをクリックして、［その他のフォーム］をクリックして、［モーダルダイアログボックス］をクリックします。
下のようにフォームが作成されます。
少し大きいので、［OK］ボタンと［キャンセル］ボタンをドラッグで上へ移動させて、下のようにフォームを小さくします。
パスワード入力用のテキストボックスを作成
［デザイン］タブの［テキストボックス］ボタンをクリックして、下のようにパスワード入力用の非連結のテキストボックスを作成します。
コントロールウィザードが表示された場合は［キャンセル］してください。
ラベルには、「パスワードを入力してください。」と入力します。
非連結のテキストボックスに名前を付けます。
プロパティを表示して［その他］タブをクリックして、［名前］に「パスワード」と入力します。
プロパティが表示されていない場合は、［F4］キーを押します。
パスワードがアスタリスクで表示されるように設定します。
［データ］タブの［定型入力］をクリックして、［...］をクリックします。
［定型入力ウィザード］から［パスワード］をクリックします。
そして、［完了］ボタンをクリックします。
OKボタンに埋め込みマクロを設定
［OK］ボタンにマクロを設定します。
［OK］ボタンを選択して、プロパティの［イベント］タブの［クリック時］にある［...］をクリックします。
下のように［マクロツール］が開かれます。
［ウィンドウを閉じる］はそのままにしておきます。
［新しいアクションの追加］の▼ボタンをクリックして、［If］をクリックします。
チェック［パスワード］テキストボックスにに入力されたパスワードが正しければ、ウィンドウを閉じて、フォームを開きます。
パスワードが違うなら、「パスワードが違います」というメッセージボックスを表示するという条件をつけていきます。
テキストボックスに「［パスワード］="123"」と入力します。
パスワードは先で作成したパスワード入力用テキストボックスの名前です。
ここでは、パスワードは「123」にしていますが、任意のパスワードに変更してください。
［上へ移動］ボタンをクリックします。
下のようになったら、［ウィンドウを閉じる］を上へ移動します。
下のようになります。
次に［新しいアクションの追加］の▼ボタンをクリックして、
［フォームを開く］を選択します。
［フォーム名］にある▼ボタンをクリックして、パスワードが正しかった場合のフォームを指定します。
ここでは、［F_社員］を指定します。［Elseの追加］をクリックします。
［Else］の▼ボタンをクリックして、
今度は、［メッセージボックス］を選択します。
［メッセージ］のテキストボックスに［パスワードが違います］と入力します。
マクロを閉じます。
下のようなメッセージが表示されたら、［はい］をクリックします。
フォームに名前を付けて保存
フォームに戻ったら、［F12］キーを押して［名前を付けて保存］ダイアログボックスを表示させて、フォームに名前を付けて保存します。
パスワード入力フォームの動作確認
パスワード入力フォームを開いて、パスワードを入力して設定したフォームが開くか確認してください。
また、パスワードが違う場合はメッセージボックスが表示されるかも確認してください。
［キャンセル］ボタンをクリックすると、パスワード入力フォームが閉じると思います。
メニューフォームなどにパスワード入力フォームが開くように設定
作成した［パスワード入力］フォームをメニューフォームの［フォームを開く］ボタンの［クリック時］イベントなどに、設定します。
イベントプロシージャでの設定は、パスワード入力フォームの作成で解説しています。
