Access VBA中使用函数从网络ID设置字段的表单

Option Compare Database
Option Explicit

' 定义函数，用于获取网络ID
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

' 设置字段的表单
Sub SetFieldFromNetworkID()
    Dim networkID As String
    
    ' 调用函数获取网络ID
    networkID = GetNetworkID()
    
    ' 将网络ID的值设置到表单的字段中
    Forms("YourFormName").Controls("YourFieldName").Value = networkID
End Sub

' 获取网络ID的函数
Function GetNetworkID() As String
    Dim computerName As String
    Dim result As Long
    
    ' 设置缓冲区大小
    computerName = Space(255)
    
    ' 调用函数获取计算机名称
    result = GetComputerName(computerName, Len(computerName))
    
    ' 如果成功获取计算机名称，则返回网络ID
    If result <> 0 Then
        GetNetworkID = Left(computerName, InStr(computerName, Chr(0)) - 1)
    Else
        GetNetworkID = ""
    End If
End Function