Access Formを隠す Me.Visible = False (Closeとの違い)

メルマガ発行内容

＜Access Formを隠す Me.Visible = False (Closeとの違い)＞
こんにちは、三流プログラマーＫｅｎ３です。

前回から、
Access で ユーザーのローカル管理
・ユーザー選択画面
・データ入力
・データ印刷
を書いてます。

サンプルファイルは、
http://www.ken3.org/vba/lzh/vba067.lzh
にdb067-97.mdbが保存されています。
(Access97形式、2000の人は変換してね)
マスターテーブルにデータを追加して、遊んでみてください。

/*
 * １．今回の目的
*/

メインテーマの
誰が入力したデータか？
~~~~~~~~~~~~~~~~~~~~~~
を知りたい。

これを実現するために、前回Loginフォームの処理を作りました。

さてと、入力のチェックは終わったけど、この値を使用したいよね。
そんな時、どうしようかなぁ・・・と考える。

グローバル変数に保存する方法にしようか迷ったが、
今回は、フォームを非表示して、コントロールの値を参照する方法にします。

そんなたいした説明じゃないので、ご安心を。

/*
 * ２．フォームの非表示
*/

フォームの非表示って簡単で、
フォームオブジェクトの.Visible を False に設定するだけです。

Private Sub btnLOGIN_Click()

    'パスワードが合っているかチェックする
    If Me![PASS] <> Me![USER_ID].Column(2) Then  'コンボボックスの３列目
        MsgBox "パスワードが違います、確認して下さい"
        Me![PASS] = ""      '元の文字を消す
        Me![PASS].SetFocus  'フォーカスを移動する
        Exit Sub  '途中で処理を抜ける
    End If

    'ログインのフォームを見えなくする
    Me.Visible = False  'Visible = False

    '管理者とオペレータを判断してフォームを開く
    Dim stLinkCriteria As String
    If Me![USER_ID].Column(3) = True Then  'コンボボックスの４列目
        DoCmd.OpenForm "F_MENU_K"  '管理者用
    Else
        DoCmd.OpenForm "F_MENU_OP" 'オペレータ用
    End If

End Sub

へぇ〜
'ログインのフォームを見えなくする
Me.Visible = False  'Visible = False
こんな一行で非表示になるんたぁ。

自分のフォームを表すMeを使用して、プロパティ.Visibleにセットしただけです。

DoCmd.Close でフォームを閉るでいいんじゃないの？

まぁ、続きがあるんだから落ち着きなって。

/*
 * ３．開いている別のフォームの値を参照する
*/

フォーム、F_LOGINから

    'ログインのフォームを見えなくする
    Me.Visible = False  'Visible = False

とフォームを非表示にしてから、

    '管理者とオペレータを判断してフォームを開く
    Dim stLinkCriteria As String
    If Me![USER_ID].Column(3) = True Then  'コンボボックスの４列目
        DoCmd.OpenForm "F_MENU_K"  '管理者用
    Else
        DoCmd.OpenForm "F_MENU_OP" 'オペレータ用
    End If

管理者を判断して、F_MENU_K , F_MENU_OP のフォームを開いてます。

F_MENU_OP が 開かれたら、
ＸＸＸさん落ち着いてがんばってね
とメッセージを表示してみます。

ＸＸＸさんの名前は、
F_LOGIN フォームのコンボボックスUSER_IDの２列目に入ってます。

F_MENU_OPの開くイベントで下記のように使ってみました。

Private Sub Form_Open(Cancel As Integer)
    Dim strMSG As String  'メッセージ作成用
    strMSG = Forms![F_LOGIN]![USER_ID].Column(1) '名前を代入
    MsgBox strMSG & "さん、落ち着いてがんばってね" 'メッセージの表示
End Sub

値の参照方法は簡単で、
Forms![F_LOGIN]![USER_ID].Column(1) 
と
Forms![フォーム名]![コントロール名].プロパティやメソッド
で、使用可能です。

なんとか無事に表示されました。
無事に表示されない例は、F_LOGINを開いていない状態で、
F_MENU_OPを開くと、
実行時エラー '2450'
F_LOGINフォームが見つからないとエラーが発生します
(  参照 )

これは、エラーメッセージのままで、
開いていないフォームの値を参照しに行ったためです。

/*
 * ４．フォームの再表示
*/

今度は、オペレーターがメニューを閉じたら、ＬＯＧＩＮ画面を再表示させます。

┌─────┐
│  終  了  │ btnEND_Click
└─────┘
ボタンがクリックされたら、
XXXXさんお疲れ様 終了しますか？
とメッセージで確認を行ってから、
メニューフォームを閉じ、ＬＯＧＩＮ画面を再表示します。

Private Sub btnEND_Click()
    Dim strMSG As String  'メッセージ作成用
    strMSG = Forms![F_LOGIN]![USER_ID].Column(1) '名前を代入
    If MsgBox(strMSG & "さんお疲れ様、終了します", vbYesNo) = vbYes Then
        DoCmd.Close acForm, "F_MENU_OP" 'F_MENU_OPフォームを閉じます
        Forms![F_LOGIN]![USER_ID] = "" 'ユーザーＩＤをクリア
        Forms![F_LOGIN]![PASS] = ""    'パスワードをクリア
        Forms![F_LOGIN].Visible = True '表示する
        Forms![F_LOGIN]![USER_ID].SetFocus  'フォーカスをID選択へ
    End If
End Sub

MsgBoxで確認後、
DoCmd.Close でフォームを閉じ、
Forms![F_LOGIN].Visible = True で再表示を行ってます。
  Forms![F_LOGIN]![USER_ID] = "" 'ユーザーＩＤをクリア
  Forms![F_LOGIN]![PASS] = ""    'パスワードをクリア
  Forms![F_LOGIN]![USER_ID].SetFocus  'フォーカスをID選択へ
　は、おまけで、表示データのクリアとフォーカスをＩＤ選択へ持って行ってます。

(  参照 )

/*
 * ５．おわりの挨拶
*/

Closeしないで、.Visible = Falseでメモリ上にロードされた状態で残しておく
と
残しておいたフォームに対して、
Forms![フォーム名]![コントロール名].プロパティやメソッド
で、アクセス可能なことがわかったと思います。

サンプルファイルは、
http://www.ken3.org/vba/lzh/vba067.lzh
にdb067-97.mdbが保存されています。
(Access97形式、2000の人は変換してね)
マスターテーブルにデータを追加して、遊んでみてください。

なんか、スッキリしないけど。。。。

次回はたぶん、続きで、入力テーブルにデータをやっとセットします。

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。
----------------------------------
関連項目(ただのバックナンバー紹介)
----------------------------------
[No.66 Access ユーザーマスターのチェックとメニュー切り替え]
http://www.ken3.org/backno/backno_vba14.html#66
簡単なログイン処理と今回の元になるいいかげんな設計を書いてます。

--------------------
読者からのお便り紹介
--------------------
In message "uhcd.sys 確認。",
いちにいさん wrote...
 >やっぱ、OS毎入れ換えんとダメやね。
 >色々と絡みがありそうだし。
 >一体何処が違うんやろ。はぁ〜。
 >
 >んじゃ。派遣がんばってね。（女の子が沢山居る職場(笑））
----

女の子がたくさん居る職場かぁ・・・
※たくさん居てもイイ思いで無かったしなぁ（実話（笑））

http://www.ken3.org/etc/500yen/zaitaku.html 
に転職・ＳＯＨＯ・派遣の情報載せつつ、自分でも探そうとしてるけど、
女の子が多い、そんな条件が検索できるといいね（オイオイ）

社員数100名とかじゃなくて、
男性90名女性10名、男性60名女性40名とか？
えっ、女の子にＫｅｎ３は相手にされないからイミ無いって（笑）

まぁ、そんな男女比は置いといて（そんなの載ってないよ）、
たまに平均年齢２４．３歳の若い会社とかアピールしてるよね。

人との出会いは何かの縁だから、。。。

フィードバック

評価・感想

ページフッター(リンクや広告など)

情報を探す

Web www.ken3.org www.microsoft.com support.microsoft.com あとは、項目別にMSでお勉強かな？ ◆ マイクロソフト サイトの歩き方 ◇ How-To インデックス ◇ FAQ インデックス ◇ スキルレベル別おすすめコンテンツ ◇ テクノロジ マップ ◇ テーマ別技術資料一覧

書籍の購入

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。 お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック