如何使Access窗體自動打開用戶數據？

Question

我正在嘗試編寫VB代碼，允許Access識別打開數據庫的人的計算機ID，打開窗體並篩選分配給用戶的記錄。有誰知道如何做到這一點？

Answer 1

一個API to get the user name可能比使用Environ更好。如果名稱在表中可用，則可以使用DLookUp獲取ID，該ID可與the Where argument of the OpenForm method of the DoCmd object一起使用以打開過濾的列表。

Answer 2

如果您的計算機ID是您的意思，您可以使用Environ $（「ComputerName」）。這是我做到的一種快速和骯髒的方式。請注意，用戶通常可以關閉表單的過濾器。 正如其他人所說，PC上的環境變量有可能被非管理員用戶修改。

如果您擔心用戶將修改計算機的環境變量（例如，通過cmd設置COMPUTERNAME = MYBOSS），則可以使用Win32 API調用獲取ComputerName值，如果您知道該用戶是非 - 無法通過註冊表或通過Windows修改計算機名的用戶（見下文）。

與API

CAVEAT如果用戶PC上的管理員權限，他們可以編輯HKLM註冊表值，那麼他們可以進行下面的註冊表項：

[HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\ComputerName\ComputerName] 
"ComputerName"="MyBossComputerName" 

如果他們重新啓動PC，Windows API調用將使用不正確的名稱。然後，他們可以將註冊表項設置恢復正​​常並重新啓動PC。

在我的方案中，我有多個用戶在同一臺​​PC和Access數據庫的不同日子工作。他們從PC上的共享文件夾位置打開數據庫。當他們點擊配電盤項目時，窗體打開窗體的Load事件運行。這種形式被綁定到一個名爲USERNAME的列的表，它只是UserName的環境變量值（例如John.Smith）。

這裏的VBA我把加載事件：

Private Sub Form_Load() 
    Dim currUser As String 
    DoCmd.Maximize 
    currUser = Environ$("USERNAME") 
    Me.Filter = "USERNAME = '" & currUser & "'" 
    Me.FilterOn = True 
End Sub 

API調用方案

如果您更願意做一個API調用來獲取計算機名稱，而不是那麼你可以做的如下：

API調用GetComputerName是由Ken Getz（VBA Developer's Handbook）或Dan Appleman（Visual Basic程序員指南的Win32 API）的代碼派生而來的。 你也可以在互聯網上找到它。首先將模塊添加到您的項目中，將其重命名爲 API或其他有意義的內容。然後插入下面的代碼：

Private Declare Function GetComputerName Lib "kernel32" _ 
    Alias "GetComputerNameA"(ByVal strBuffer As String, lngSize As Long) As Long 

Public Function ComputerNameValue() As String 
    Dim strBuffer as String 
    Dim retValApi as Long 
    Dim bufferSize as Long 

    bufferSize = 256 

    strBuffer = Space(bufferSize) 

    'bufferSize will be returned with ComputerName length less null character.' 

    retValApi = GetComputerName(strBuffer, bufferSize) 

    If CBool(retValApi) Then 
     ComputerNameValue = Left$(strBuffer, bufferSize) 
    Else 
    'Your Error Handler' 
    End If 

End Function 

在窗體加載事件（修改爲使用API​​包裝函數，而不是Envrion $）：

Private Sub Form_Load() 
    Dim PCName As String 
    DoCmd.Maximize 
    PCName = ComputerNameValue() 
    Me.Filter = "COMPUTERNAME = '" & PCName & "'" 
    Me.FilterOn = True 
End Sub