VBA

お尋ねします。ACCESSのformのテキストBOXで

クリックやファイルを開いたときに

PCのコンピュウター名を自動取得したいです

①Sub Sample()

Dim WshNetworkObject As Object   '---(1)

Set WshNetworkObject = CreateObject("WScript.Network") '---(2)

With WshNetworkObject
    MsgBox "ユーザー名： " & .UserName & vbCrLf _
         & "コンピュータ名： " & .ComputerName
End With

Set WshNetworkObject = Nothing

End Sub

Sub Button1_Click()
Dim strBuffer As String
Dim lngLngs As Long
Dim lngRet As Long

' Bufferを確保
strBuffer = String(256, Chr(0))
lngLngs = Len(strBuffer)

' コンピュータ名取得
lngRet = GetComputerName(strBuffer, lngLngs)
' Null文字の手前までを有効として表示
MsgBox Left$(strBuffer, InStr(1, strBuffer, Chr(0)) - 1)

End Sub

②Sub Sample()

Dim WshNetworkObject As Object   '---(1)

Set WshNetworkObject = CreateObject("WScript.Network") '---(2)
  
With WshNetworkObject
    MsgBox "ユーザー名： " & .UserName & vbCrLf _
         & "コンピュータ名： " & .ComputerName
End With

Set WshNetworkObject = Nothing

End Sub

がネットでありますがメッセージBOXはでますが

テキストにはいらないです

テキストに値が入るようにいたいです。

よろしくお願いいたします。

行動規範の内容に同意します

回答2件

ベストアンサー

質問内容から、基本的な部分も理解していないVBA初心者とお見受けしました。その前提がで回答します（もし、見当はずれでしたら、すみません。）

まず、提示のコードは、Windows Script Host や Windows API という外部ライプラリーを使用する高度な方法です。初心者なら、VBAにもともとある Environ関数で取得できますのでそれを利用することをお勧めましす。

下記のコードだけで、メッセージボックスに表示できます。

VBA
1Sub Sample()
2        MsgBox "ユーザー名： " & Environ("USERNAME") & vbCrLf _
3             & "コンピュータ名： " & Environ("COMPUTERNAME")
4End Sub

テーブルに保存したいとういことですが、情報が不足しているので、下記の前提で回答しますね。

テーブル名ユーザー情報
フィールド名ユーザー名、コンピューター名

フォーム上に、
テキストボックス「txtユーザー名」、「txtコンピューター名」
コマンドボタン「登録」
が配置してある。

フォームからテーブルに登録するには、連結フォームにするのが簡単です。
フォームのレコードソースを「ユーザー情報」と設定する。
「txtユーザー名」のコントロールソースを「ユーザー名」
「txtコンピューター名」のコントロールソースを「コンピューター名」
に設定する。
これで、フォームとテキストボックスはテーブルと連結されて、入力した内容が自動でテーブルに保存できます。

「登録」ボタンクリックで自動で入力するには、クリック時のイベントプロシージャを下記のように記述します。

VBA
1Private Sub 登録_Click()
2
3    Me.txtユーザー名 = Environ("USERNAME")
4    Me.txtコンピュータ名 = Environ("COMPUTERNAME")
5    DoCmd.RunCommand acCmdSaveRecord
6
7End Sub

これで、「ユーザー情報」テーブルに保存されます。

このままでは、フォーム（ファイル）を閉じて、開いた時に、前回のユーザー名、コンピュータ名がそのまま表示されるので、閉じるときに削除する処理か、いつ誰が開いたかの履歴を保存しておきたいならクリック時の日時も登録して、開くときは新規レコードへ移動するなどの処理が必用になりますが、とりあえずは上記のことができてから、後は、どのようにしたいか仕様を明確にして再度質問してもらうことになりますね。

投稿2015/11/23 07:32