[三流君] −−＞ [ＶＢＡで楽しく] −−＞ [バックナンバー一覧]
−−＞ No.067 Access Formを隠す Me.Visible = False (Closeとの違い)

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名とか？
えっ、女の子にＫｅｎ３は相手にされないからイミ無いって（笑）

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

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

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

気になったジャンル↓を選択してください。

人気記事(来場者が多いTOP3):
[VBAでIE,WebBrowserを操作]・・・VBAでIE,WebBrowserを操作する サンプルです
[Access から Excel 連携 CreateObject("Excel.Application")]・・・AccessからExcelを操作したりデータの書き出しなどです
[VBAでOutlookの操作 CreateObject("Outlook.Application" )]・・・VBAからOutlookを使い、メール関係を処理するサンプルです
↑上記３つみたいなCreateObjectで他のアプリケーションを操作するサンプルが人気です。

Excel関係:
[Excel UserFormを操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
[ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
[Excel関係 関数、その他]・・・その他Excel関係です

Access関係:
[Access UserForm/サブフォーム 操作]・・・アクセスでフォームを使ったサンプルです
[Access レポート操作]・・・レポートを操作してみました
[Access クエリーやその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です

その他：VBAの共通関数やテキストファイルの操作など
[VBAでテキストファイル(TextFile)の操作]・・・普通のテキストファイルを使ったサンプルです
[VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

開発時の操作: [F1を押してHELPを見る]/ [Debug.Print と イミディエイトウインドウ]/ [実行時エラーでデバッグ]/ [ウォッチ式とSTOP]/ [参照設定を行う]

仕様書(設計書？) XXXX書類: [基本設計書や要求仕様書]/ [テスト仕様書 テストデータ]/ [バグ票]/ [関数仕様書]/ [流れは 入力・処理・出力]

※↑文章の味付けが変わっていて、お口に合うかわかりませんが。。。
※※読んで、気分を悪くされたらスミマセン。

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]


[三流君(TOP ken3.org へ戻る)] / [VBA系TOPへ] / [VBA系バックナンバー目次へ移動]