Question

我有一个突然在设计模式下打开的Microsoft Access 2010数据库 - 因此它在功能区中显示了创建，外部数据和数据库工具选项，我可以看到所有表，查询等 - 我打开它时没有按下shift键。有谁知道允许这样的设置？我不希望这样 - 我想要它，以便如果用户双击打开文件，他们应该看到在选项中设置的显示表单，而不是所有的开发人员选项。

Answer 1

如果你能理解这个人的口音，那么this tutorial实际上非常可靠，可以帮助你锁定一切。

如果您想获得网络用户名，请尝试以下方法：

将此代码放在新模块的声明中：

Private Declare Function apiGetUserName Lib "advapi32.dll" Alias _
    "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long

然后，将此函数添加到该模块以获取用户名：

Public Function GetNetworkUserName() As String
On Error GoTo Err_Handler
    'Purpose:   Returns the network login name
    'Return:    The name, or "{Unknown}" on error.
    'Note:      Safer than testing Environ().
    Dim lngLen As Long
    Dim lngX As Long
    Dim strUserName As String

    strUserName = String$(254, 0&)
    lngLen = 255&
    lngX = apiGetUserName(strUserName, lngLen)
    If (lngX > 0&) Then
        strUserName = Left$(strUserName, lngLen - 1&)
    End If

    If strUserName <> vbNullString Then
        GetNetworkUserName = strUserName
    Else
        GetNetworkUserName = "{unknown}"
    End If

Exit_Handler:
    Exit Function

Err_Handler:
    Call LogError(Err.Number, Err.Description, conMod & ".fOSUserName")
    Resume Exit_Handler
End Function

然后，在表单（可能是您的主表单或开放表单）上，您可以通过将其放在OnLoad事件中的某个位置来获取用户名：

UName = UCase(GetNetworkUserName())

然后，您可以将该变量名称和时间戳写入“审核”表，以跟踪数据库中的人员以及他们何时登录。

如何使Microsoft Access仅在设计模式下使用shift键打开

1 个答案: