ユーザーアカウントを取得して更新者を記録する

Accessでフォームを起動した時に自動でPCのユーザーアカウントを取得して、更新者を記録する方法です。

帳票フォームの［編集］ボタンをクリックして、単票フォームを表示したときにユーザーの名前が表示されるようにします。

参考ここでは、ウィンドウの表示は［ウィンドウを重ねて表示する］の設定にしています。

テーブルの作成

［T_man］テーブルを作成して、下のように［ユーザーアカウント］と［氏名］を入力します。

［ユーザーアカウント］が主キーです。

売上テーブルの確認

［T_売上］テーブルです。

リレーションシップの確認

2つのテーブル［T_man］と［T_売上］は、フィールド［ユーザーアカウント］でリレーションシップを設定しています。

参考リレーションシップの作成と参照整合性については、以下の記事で解説しています。

［帳票］フォームの元となるクエリの作成

帳票フォームのもとになるクエリを作成します。

［T_売上テーブル］のすべてのフィールドと、［T_man］テーブルの［氏名］を表示できるようにします。

［氏名］フィールドは、［更新者］となるよう［更新者:氏名］とします。

クエリ名は［Q_売上_帳票］です。

［帳票］フォームの作成

クエリ［Q_売上_帳票］を基に帳票フォームを作成します。

［編集］ボタンを追加して、［編集］ボタンをクリックすると同じIDの単票フォームが開くように設定します。

［単票］フォームの元となるクエリの作成

クエリ［Q_売上_帳票］をコピーして、［Q_売上_単票］という名前にします。

今度は［ID］の抽出条件に　[forms]![F_帳票]![ID]　と入力します。

参考帳票フォームから選択したIDの単票フォームを開く方法については、帳票フォームから単票フォームを起動するにはで解説しています。

［単票］フォームの作成とレコード移動時のイベント

クエリ［Q_売上_単票］を基に単票フォームを作成します。

名前は［F_単票］とします。

［レコード移動時］イベントプロシージャ

そして、フォームの［レコード移動時］イベントに

下のように書き込みます。

これで、単票フォームを開いたときにユーザー名が表示されるようになります。

［F_単票］の［ユーザーアカウント］はプロパティの［可視］を［いいえ］にして、見えないようにしています。

フォームのテキストボックスを非表示にするには

［キャンセルして閉じる］ボタンを追加

何も編集せずに閉じても、更新者が保存されてしまいますので、［キャンセルして閉じる］ボタンを作成して、レコードを元に戻して閉じるようにします。

［クリック時］のイベントプロシージャ

［キャンセルして閉じる］ボタンの［クリック時］のイベントプロシージャに、下のように書き込みます。

参考閉じる時のボタン設置については、以下の記事も参考になると思います。

更新日時を自動表示して記録する方法は、以下の記事で解説しています。