My.Computer.Name導致運行時錯誤424

Question

需要在Access窗體上使用My.Computer.Name，但會導致424運行時錯誤（「需要對象」）。我從Microsoft的Office Dev網站複製並粘貼了My.Computer.Name的示例代碼，該代碼生成相同的運行時錯誤。我也嘗試過使用My.Computer.FileSystem.DirectoryExists獲得相同的結果。

任何援助將不勝感激！

Answer 1

退房http://answers.microsoft.com/en-us/office/forum/office_2007-access/how-can-i-get-computer-name-using-access-2007-vba/aa5471c7-f06c-e011-8dfc-68b599b31bf5?tab=MoreHelp

基本上，使用

'more simple but easier to "spoof" 
Environ("computername") 

'Should use as long as it works on your Access server 
'Simply call "ComputerName()" whenever you need to get the user's computer 
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, ByRef nSize As Long) As Long 
Function ComputerName() As String 
    Dim stBuff As String * 255 
    Dim lAPIResult As Long 
    Dim lBuffLen As Long 
    lBuffLen = 255 
    lAPIResult = GetComputerName(stBuff, lBuffLen) 
    If lBuffLen > 0 Then 
    ComputerName = Left(stBuff, lBuffLen) 
    End If 
End Function