microsoft accessの変更履歴にコンピューター名やユーザー名を記録

Set objNetWork = CreateObject("WScript.Network")
Me.(テキストボックス名) = objNetWork.UserName

コンピューター名のときは
objNetWork.ComputerName
にするだけ。

昔はGetUserName等使って色々やっていたが、
今はこれで良いようだ。