hatena chips

hatena様
accessクラブでいつもお世話になっている超初心者のt.tです。
いつもありがとうございます。

hatenachipsでLOGIN画面の記事が出ていました。
大変参考になったのですが、データベースウインドウが
表示されパスワード管理TBLを開くことができるため
パスワードとIDを持っていない人までDBにアクセス
出来てしまいます。

起動時の設定でデータベースウインドウを表示させない
方法をとってもＳＨＩＦＴキーを押しながら開くボタンを押す
と、データベースウインドウが表示されてしまいます何か
良い方法は無いのでしょうか？
教えて下さい。

よろしくお願いします。

t.tさん、こんにちは。

Shiftキー起動を無効にする方法があります。
「Acess AllowBypassKey」でWEB検索してみてください。

これで完全というわけではありませんが、かなり、有効な方法です。

hatena様

ｔ.ｔです。

「Acess AllowBypassKey」でWEB検索してみました。

accessクラブで丁寧に解説してありました。
手順書に従ってやるとＳＨＩＦＴキーを押しながら開くボタン
を押すしてもデータベースウインドウが表示されなくなりました。

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

調べていたらこちらにたどり着きました。
上記のように設定は出来たのですが、
IDをテキスト入力ではなく、コンボボックスで選んで
パスワード入力するようにはできないでしょうか？
よろしくお願いします。

デザインビューで ID のテキストボックスを右クリックして「コントロールの種類の変更」→「コンボボックス」をクリック。
値集合ソース を T_ID_pass と設定する。

以上でOKです。

ありがとうございます。
なんとか出来ましたが、ログイン画面が出たときに
「#エラー」が出ます。値集合ソースでセレクトしてるせいみたいですが、消す方法ありますでしょうか？
これをしないとIDごとの売上が反映されなくなってしまいます。
よろしくお願いします。

値集合ソースに設定するのは実際のテーブル名にしてますよね。

もしそうなら、原因は別にあると思います。

このページのサンプルで前回の回答のように設定したら問題なく動作しました。

わかりました。既定値の部分に「DFirst("[社員 ID]","社員の権限","[権限 ID]=2")と書いてました。これを消すと「#エラー」は出なくなりました。ただ他との連携がなくなりました。

「他との連携」とは具体的にどのようなことでしょうか。

こちらからは、そちらのファイルは見れないので、何をしようとして、どのように設定して、どううまくいかないのか、具体的に説明してもらわないと、回答しようがありません。

すみません。何度も。。

もともとaccessのテンプレート「ノースウィンドウ」から
作ったのですが、ログイン画面で担当者を選んでログイン
すると担当が入力したホーム画面が開きます。
これにパスワードを用いると担が入力したホームが出て来ません。
今はaccess自体にパスワードをかけました。
何かわかるようでしたらお願いします。

> ログイン画面で担当者を選んでログイン
> すると担当が入力したホーム画面が開きます。
> これにパスワードを用いると担が入力したホームが出て来ません。

この部分のコードが間違っているのでしょう。
実際のコードを提示してください。

あと、Access と OS のバージョンも。

Access2013 と OS win7になります。

ログインIDはコンボボックスになっており、

データタブ：
値集合ソース：SELECT 社員区分.社員ID, 社員区分.名前 FROM 社員区分 ORDER BY 社員区分.名前;
既定値：DFirst("[社員 ID]","社員の権限","[権限 ID]=2")

イベントタブ：
更新後処理：埋め込みマクロ
一時変数設定
名前　CurrentUserID
式=[Screen].[ActiveControl]

その他タブ：
名前：cboCurrentEmployee
タグ：CurrentUserSelector~Extensions=NWDefaultToPurchaseApprovalsUser~EditListItemsForm=Employee List~TableOrQueryName=Employees Extended~SourceID=ID~Column1=Employee Name~Column2=Job Title


ログインボタン
クリック時：埋め込みマクロ
if　Not IsNull([cboCurrentEmployee])　Then
一時変数設定
名前：CurrentUserID
式=[cboCurrentEmployee]

フォーム開く：ホーム

のようになってます。わかりづらいですよね。
基本的にはaccessのテンプレート「ノースウィンドウ」から
作っています。

よろしくお願いします。

埋め込みマクロですね。

このページで紹介している方法はVBAを使ってます。

このコメント欄で質問しているので、このページの方法でうまくいかないということだと思ってました。

埋め込みマクロは読みづらいですし、テンプレート「ノースウィンドウ」からどのように変更しているかも不明なので、ここでは回答は難しいです。（私自身は、普段、埋め込みマクロを使ってません）

このページの方法でうまくいかないということなら、どのようなコードを書いたのか提示していただければアドバイスすることは可能です。

ありがとうございます。
逆に埋込みを使わないで、ログインidパスワードを使って違うフォーム開き、id引き継ぐvbaの書き方はどうすればいいでしょうか？

いろいろな方法がありますので、状況に応じて最適なのを選べばいいでしょう。

・OpenFormメソッドの OpenArgs引数で渡す

・グルーバル変数を使う

・ログインフォームを閉じずに、非表示にするだけにして、参照する。

・TempVars（一時変数）オブジェクトに格納する。

など。


TempVars の場合のコード例

このページのコードの21行目の後に下記のコードを挿入

　　If Res = Me.txtPass Then
　　　　TempVars.Add "MyID", Me.txtID 'IDを一時変数に格納
　　　　DoCmd.OpenForm "F_入力" '----ID,pass合致でフォームを開く。
　　　　DoCmd.Close acForm, "F_LogIn"


入力フォームで参照する場合
テキストボックスに表示させるには、コントロールソースを
=[TempVars]![MyID]

VBAで参照する場合は、TempVars!MyID で参照できます。


このページのサンプルを前提のコードですので名前等は実物のものに変更してください。

ありがとうございます。

下記のコードを
-----------------------------------------
If Res = Me.txtPass Then
DoCmd.OpenForm "F_入力" '----ID,pass合致でフォームを開く。
DoCmd.Close acForm, "F_LogIn"
Else
-----------------------------------------
下記のコードに変更して

If Res = Me.txtPass Then
　　　　TempVars.Add "MyID", Me.txtID 'IDを一時変数に格納
　　　　DoCmd.OpenForm "F_入力" '----ID,pass合致でフォームを開く。
　　　　DoCmd.Close acForm, "F_LogIn"
-----------------------------------------
下記の入力は、どこにいれるのでしょうか？

-----------------------------------------
入力フォームで参照する場合
テキストボックスに表示させるには、コントロールソースを
=[TempVars]![MyID]
-----------------------------------------
よろしくお願いします。

> 下記の入力は、どこにいれるのでしょうか？
>
> -----------------------------------------
> 入力フォームで参照する場合
> テキストボックスに表示させるには、コントロールソースを
> =[TempVars]![MyID]
> -----------------------------------------

ID を表示したいテキストボックスのコントロールソースに設定します。

何度もすみません。
サンプルを試しにやってみました。

「F_入力」に「テキストボックス」を作り、コントロールソースに
「=[TempVars]![MyID] 」を入れましたが、動作はするのですが、
IDが表示されませんでした。

他には何をすればよいでしょうか？

よろしくお願いします。

一時変数に格納するコードを下記に変更してください。

　　　　TempVars.Add "MyID", Me.txtID.Value 'IDを一時変数に格納

.Valueを追加しました。

サンプルをこのコードに変更して、=[TempVars]![MyID] でIDが表示されるのを確認しました。（Access2010ですが）

さっそく試してみましたが、表示されません。
サンプルで試しているのですが、何か名前を加えるのでしょうか？
よろしくお願いします。

コード
　
　　　Option Compare Database
Option Explicit

Private Sub cmdRogIn_Click()
Dim Res
If IsNull(Me.txtID) Then
MsgBox "IDを入力してください"
Me.txtID.SetFocus
Exit Sub
End If

If IsNull(Me.txtPass) Then
MsgBox "パスワードを入力してください"
Me.txtPass.SetFocus
Exit Sub
End If

Res = DLookup("Pass", "T_ID_pass", _
"ID='" & Replace(Me.txtID, "'", "''") & "'")
If IsNull(Res) Then
MsgBox "該当するIDはありません。正しいIDを入力してください。"
Me.txtID.SetFocus
Exit Sub
End If



If Res = Me.txtPass Then
DoCmd.OpenForm "F_入力" '----ID,pass合致でフォームを開く。
DoCmd.Close acForm, "F_LogIn"
Else

If Res = Me.txtPass Then
TempVars.Add "MyID", Me.txtID.Value 'IDを一時変数に格納
DoCmd.OpenForm "F_入力" '----ID,pass合致でフォームを開く。
DoCmd.Close acForm, "F_LogIn"
End If

MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
Me.txtPass.SetFocus
End If
End Sub


「F_入力」に「テキストボックス」を作りコントロールソースに
=[TempVars]![MyID] を入れただけです。

よろしくお願いします。

コードの挿入位置がおかしいです。
全部出しますね。

Private Sub cmdRogIn_Click()
Dim Res
　　If IsNull(Me.txtID) Then
　　　　MsgBox "IDを入力してください"
　　　　Me.txtID.SetFocus
　　　　Exit Sub
　　End If
　　
　　If IsNull(Me.txtPass) Then
　　　　MsgBox "パスワードを入力してください"
　　　　Me.txtPass.SetFocus
　　　　Exit Sub
　　End If
　　　　
　　Res = DLookup("Pass", "T_ID_pass", _
　　　　"ID='" & Replace(Me.txtID, "'", "''") & "'")
　　If IsNull(Res) Then
　　　　MsgBox "該当するIDはありません。正しいIDを入力してください。"
　　　　Me.txtID.SetFocus
　　　　Exit Sub
　　End If
　　
　　If Res = Me.txtPass Then
　　　　TempVars.Add "MyID", Me.txtID.Value 'IDを一時変数に格納
　　　　DoCmd.OpenForm "F_入力" '----ID,pass合致でフォームを開く。
　　　　DoCmd.Close acForm, "F_LogIn"
　　Else
　　　　MsgBox "パスワードが異なります。", vbOKOnly + vbCritical
　　　　Me.txtPass.SetFocus
　　End If
End Sub

ありがとうございます。
出来ました。
表示はされたのですが、F_入力に「サブフォーム」を作り
ログインしたIDのみのデータが表示するようにしたいのですが、
うまくいきません。
それと、全画面表示でコントロール類が中央になるような設定も
できますでしょうか？
図々しくてすみません。よろしくお願いします
「ウィンドウを表示させない」はうまくできました！
よろしくお願いします。

> 表示はされたのですが、F_入力に「サブフォーム」を作り
> ログインしたIDのみのデータが表示するようにしたいのですが、
> うまくいきません。
> それと、全画面表示でコントロール類が中央になるような設定も
> できますでしょうか？

このページの記事の内容とは関係ないことになりますので、別にAccess系の掲示板で質問しなおしたほうがいいと思います。

このようなやりとりにブログのコメント欄は向いていませんので。

サブフォームにログインしたIDのみ表示させるのは、簡単なので、回答しておきます。

ID を表示ているテキストボックス名を txtID とします。

サブフォームのレコードソースのフィールド名を ID とします。

サブフォームのプロパティを下記のように設定します。

リンク親フィールド　txtID
リンク子フィールド　ID

以上です。

ありがとうございます。

長々すみませんでした。

頑張ってみます。

また、参考にさせていただきます。

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

> それと、全画面表示でコントロール類が中央になるような設定も
> できますでしょうか？

どうしてもうまくできないようでしたら、
VBAが必須になりますので、
下記で質問するがお勧めです。

Excel VBA を学ぶなら moug モーグ｜Access （VBA）
http://www.moug.net/faq/viewforum.php?f=4

突然失礼します。
いつもAccessで困った際に参考にさせていただいております。

このページを参考にログインフォームを作成し、開いた入力用フォームで
データを入力します。
フォームで入力したデータはテーブルに保存するのですが、一時変数で表示させているユーザー名も同じテーブルに保存する事は可能でしょうか。

もしお分かりになるようでしたらご教授いただけると幸いです。

宜しくお願い致します。

> フォームで入力したデータはテーブルに保存するのですが、一時変数で表示させているユーザー名も同じテーブルに保存する事は可能でしょうか。

フォームの更新前処理で、代入すればいいのでは。

Me.ユーザー名 = 一時変数

hatenaさんご教授ありがとうございます。

> フォームの更新前処理で、代入すればいいのでは。

Me.ユーザー名 = 一時変数
とあるのですがこれは入力用フォームの更新前処理に対してとの理解で宜しいでしょうか。
説明不足でありましたが、元々は入力フォームにある入力者と言うテキストボックスへマニュアルで各ユーザーがユーザー名を入力しておりましたが、出来ればこの入力を省きログイン時のID（一時変数）を上記テキストボックスのフィールドへ代入しテーブルのフィールドへ保存出来ないかと思った次第です。

少し試してはみましたが、うまく行きませんでした。

誠に申し訳ありませんが、もう少し詳細の方法をご教授いただけると幸いです。
宜しくお願い致します。

hatenaさん

お世話になっております。
上記の件ですが、別のフィールド（入力必須）の更新後処理で代入する事で出来るようになりました。
お騒がせしてすいませんでした。

因みに、T_ID_passテーブルにIDとPW以外にUserNameというフィールドを設け一時変数として格納する値をLoginIDではなくUserNameにする事は可能でしょうか。

検索していると、たどりつきました。

hatena さま　ご教授お願いします。

現在、メイン画面は、Switchboard のメニュー選択となっています。
埋め込みマクロでボタンをクリックすると、それぞれのフォームが開きます。メニュー数は、4メニューぐらいです。

登録したIDによって、開けるメニューの制限をしたいと思っています。

よろしくお願いします。