VBAでユーザー名やコンピュータ名を取得する方法

AccessのVBAでログインしているユーザー名やコンピュータ名を取得したい場合があるので、その方法になります。

ユーザー名やコンピュータ名を取得する場合、「WScript.Network」オブジェクトを使用します。

Private Sub Form_Load()
    Dim ws As Object
    Set ws = CreateObject("WScript.Network")
    Debug.Print ws.UserName
    Debug.Print ws.ComputerName
    Set ws = Nothing
End Sub

取得した情報は、個人的には操作ログやエラー発生時のログなどに出力して、問題発生時の手がかりにします。