如何使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