【ACCESS】コマンドボタンのクリック（イベント実行）の権限

フォームにある数あるコマンドボタンの中の、１つのコマンドボタンにだけ権限を設けて、管理者だけがクリック（イベントを実行）できるようにしたいのですが、どうやったらいいのか分かりません。
クリックすると、パスワード入力のINPUTボックスが表示されるってのは可能でしょうか？
もし可能であれば、方法を教えてください。
また不可能であれば、できるだけ簡単にイベント実行の権限を設けたいので、教えてください。よろしくお願いします。

No.3 ベストアンサー 回答者： tsukasa-12r 回答日時： 2004/08/16 14:17

No2 の人から回答がないようなので、代わりにお答えしましょう。

＞ＤＢはｍｄｅにして、コードを参照不可にする
というのは、プログラムでどうこうするということではありません。
メニューのツール→データベースユーティリティ→ＭＤＥファイルの作成
で、ＭＤＢファイルをＭＤＥファイルに変換してやると、コードの中身が見れなくなります。
If XXXX = "PA4819" Then
...
のように記述しても、ＭＤＥにしてやるとコードに記述しているパスワードが見れないので大丈夫なんじゃないでしょうか、ということですね。
この方法だと、パスワードを変更しようとするとコードを修正しなければならないですけど・・・

この回答へのお礼

ありがとうございます。
やってみたいと思います。

お礼日時：2004/09/13 20:53

No.2 回答者： uekuni 回答日時： 2004/08/09 09:05

管理者を何で判断するかによって方法が変わって

きますが、最も簡単であるのは、クリックのイベント
にて、ＩＮＰＵＴ　ＢＯＸを表示させて、パスワードを
設定させる事でしょうか。
パスワードの管理はＶＢＡにハードコーディングして
ＤＢはｍｄｅにして、コードを参照不可にする事で
可能ではないでしょうか。
ＩＮＰＵＴ　ＢＯＸの使用方法はＨＥＬＰにて
確認して下さい。

この回答への補足

>パスワードの管理はＶＢＡにハードコーディングして
ＤＢはｍｄｅにして、コードを参照不可にする事で
可能ではないでしょうか。

VBAを勉強中ですが、まだまだ初心者なので、
VBAでどのようなprogramを組んだらいいのか、
いまいちよく分かりません。
もしよろしかったら、教えていただけませんか。

補足日時：2004/08/10 15:33

No.1 回答者： tsukasa-12r 回答日時： 2004/08/09 02:59

アクセスのユーザーアカウントは作成されているのでしょうか？アクセスのユーザーを使用するのなら、フォームのロード時にカレントユーザーが管理者かどうかを調べてコマンドボタンの .Enabled プロパティを設定してやればいいんじゃないでしょうか。

Private Sub Form_Load()
If CurrentUser = "Admin" Then
コマンド1.Enabled = True
Else
コマンド1.Enabled = False
End If
End Sub

この回答への補足

ありがとうございます。
試してみたいと思います。

補足日時：2004/08/10 15:37