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

1 回答

• 0

  如果你可以通过这个家伙的口音，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())
  

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

  回复于 2024-05-14T21:04:15+08:00