Accessでのシステム情報所得について

質問

Accessのデータベースを複数のユーザーで使用しています。

データの保持のため、変更履歴を作成したいのですが、
各端末のログオンユーザー名はAccessから所得できますか？

履歴を残したいフィールドの更新時に、
「日付」「フィールド名」「変更前内容」「変更後内容」「ユーザー名」を
保存したいと思っています。

回答No.3

taka_tetsu

こちらをどうぞ。

http://www.vbvbvb.com/jp/gtips/0501/gGetUserName.html

参考URL：

http://www.vbvbvb.com/jp/gtips/0501/gGetUserName.html

回答No.2

ja7awu

サンプルを作ってみましたので、参考にしてください。

'GetUserName APIの宣言 (Declarations)に記述
Declare Function GetUserName Lib "advapi32.dll" Alias _
　　"GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

Sub DispUserName()
　　Const SIZE = 128
　　Dim UserName As String * SIZE
　　Dim StrLen As Long
　　StrLen = SIZE
　　If GetUserName(UserName, StrLen) <> 0 Then
　　　　MsgBox "ユーザー名は、 " & Mid(UserName, 1, (StrLen - 1)) & " です。"
　　Else
　　　　MsgBox "ユーザー名は、取得できません。"
　　End If
End Sub

回答No.1

taka_tetsu

ログオンユーザはWindowsへのログオンということでいいのでしょうか？

それでしたらWindowsAPIのGetUserNameで取得できます。

補足

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

Windowsへのログオンになります。
WindowsAPIやGetUserNameは
Accessについて調べているといろいろでてきましたが、
あまりわかりませんでした。
Accessのイベント内で行うにはどうすればいいでしょうか？