如何在Access的VBA中用代码查询本地机的名字？

leewm

如题。
请各位高手不吝赐教！！

sanjian

api很容易做到

李寻欢

'API声明
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long

'获取：
Dim Name As String, Length As Long
Length = 225
Name = String(Length, Chr(0))
GetComputerName Name, Length
Name = Left(Name, Length)
MsgBox "您的计算机名称是：" & Name

[此贴子已经被作者于2003-6-13 0:49:42编辑过]

leewm

多谢版主指教,Thanks!!