Access VBA

質問

Access2003を使用しています。

Accessで管理者用のメインフォームと、一般ユーザー用のメインフォームを作成しました。

管理者と一般ユーザーが共用で使用するフォームがあるのですが、
それらのフォームからメイン画面に戻るときに、管理者であれば管理者用のフォームに、
一般のユーザーであれば一般ユーザー用のフォームを開くようにしたいと考えています。

そこでログインした際に、管理者であれば"1"、一般ユーザーであれば"2"をデータベースに記録して、
それを元にどちらを開くか判断するVBAを作成しようと思ったのですが、
具体的にどのようにしたら良いのかわからずに困っています。

ご回答をお願いします。

回答No.1

30246kiku · ベストアンサー

Accessログイン権限
http://oshiete1.goo.ne.jp/qa5349036.html

の続きと考えていいですか。

グローバル変数（標準モジュールに Public 変数を宣言）を利用します

標準モジュールに
Public iPubWho As Integer
を宣言したとして、上記の処理の中で

　　　　　　If (rs("アカウント") = "1") Then
　　　　　　　　stDocName = "frm_main"
　　　　　　　　iPubWho = 1 '★
　　　　　　Else
　　　　　　　　stDocName = "frm_main2"
　　　　　　　　iPubWho = 2 '★
　　　　　　End If

と、設定する部分（★）を追加し、以降、必要に応じて
iPubWho　の値を確認しながら処理を進めるとよいと思います。

※　一例ですので、変数名、型、設定する値は考えてください。

お礼

お返事が遅れましてすいません。

無事解決することができました。
標準モジュールは知っていたんですが、どのように使っていいかわからず
今まで使っていませんでした。でも、わかると便利ですね。

ご回答ありがとうございました。