Access中的登錄模塊

Question

我正在爲我的Access程序登錄模塊。但我對此不甚瞭解。

這些用途使用Windows登錄登錄他們的計算機，並在數據庫中有一張描述每個登錄名和角色（工作人員，經理等）的表格。

我想要做的是當我的程序啓動時，它可以自動檢測Windows登錄，並根據表格決定隱藏一些表單或報告。

有什麼建議嗎？謝謝..

Answer 1

試試這個。輸入此之外的程序：

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

，並輸入該程序：

Function GetUser() As String 
    Dim cn As String, Userstr As String 
    cn = String(1024, 0) 
    If GetUserName(cn, 1024) <> 0 Then GetUser = Replace(cn, Chr(0), "") 
End Function 

隨後的getUser（）應該給你的Windows登錄名。我在XP機器上運行的幾個Access 2003 Frontier中使用它，並且沒有任何問題。

（附註：事實上，我從堆棧溢出這個代碼在很久以前，但我不知道是誰給了我，所以我不能給予適當的信貸）