Access Tips ［関数］　：　オートメーション

Accessで現在Windowsにログイン中のアカウントを取得する

解説

Accessで現在Windowsにログイン中のアカウントは、
CreateObject("WScript.Network").UserName
で取得できます。

内容

フォームにあるコマンドボタン（ここではCommand1）をクリックしたら、
現在Windowsにログイン中のアカウントをメッセージボックスに表示するコード。

'--------------------------------------------------
Private Sub Command1_Click()
On Error GoTo Err_Command1_Click

    MsgBox CreateObject("WScript.Network").UserName

Exit_Command1_Click:
Exit Sub

Err_Command1_Click:
MsgBox Err.Description
Resume Exit_Command1_Click
End Sub