如何在MS Access 2007中获取数据库登录用户名而非Windows用户名？

你说得对，ENVIRON("username")确实只会返回当前Windows系统的登录用户名，和你自己的数据库用户体系完全无关。既然已经有了tblUser用户表，我们需要通过自定义登录流程来记录和获取数据库专属的登录用户名，下面是具体实现步骤：

核心思路 #

1. 制作一个登录表单，让用户输入数据库专属的用户名和密码
2. 验证输入的信息是否匹配tblUser中的记录
3. 登录成功后，将当前用户信息存储在一个全局可访问的地方（推荐用TempVars，比全局变量更稳定）
4. 后续需要调用登录用户名时，直接读取存储的变量即可

具体代码实现 #

1. 登录表单的验证逻辑 #

假设你有一个登录表单frmLogin，包含用户名文本框txtUsername、密码文本框txtPassword和登录按钮cmdLogin，在按钮的点击事件中添加以下代码：

Private Sub cmdLogin_Click()
    Dim inputUsername As String
    Dim inputPassword As String
    Dim userRecord As Recordset
    
    ' 获取用户输入的账号密码
    inputUsername = Nz(Me.txtUsername.Value, "")
    inputPassword = Nz(Me.txtPassword.Value, "")
    
    ' 从tblUser中匹配用户信息
    Set userRecord = CurrentDb.OpenRecordset( _
        "SELECT Username FROM tblUser " & _
        "WHERE Username = '" & inputUsername & "' " & _
        "AND Password = '" & inputPassword & "'" _
    )
    
    If Not userRecord.EOF Then
        ' 登录成功：将用户名存入TempVars（会话级存储，关闭Access自动清除）
        TempVars.Add "CurrentDBUser", inputUsername
        
        ' 跳转到主界面并关闭登录表单
        DoCmd.OpenForm "frmMain" ' 替换成你的主表单名称
        DoCmd.Close acForm, Me.Name
    Else
        ' 登录失败：提示错误并聚焦用户名框
        MsgBox "用户名或密码错误，请重新输入！", vbExclamation
        Me.txtUsername.SetFocus
        Me.txtUsername.SelStart = 0
        Me.txtUsername.SelLength = Len(inputUsername)
    End If
    
    ' 清理资源
    userRecord.Close
    Set userRecord = Nothing
End Sub

2. 调用登录用户名 #

在任何需要获取当前数据库登录用户的地方，直接读取TempVars中的值即可：

Dim currentUser As String
currentUser = TempVars("CurrentDBUser").Value

' 示例：显示当前用户
MsgBox "当前登录的数据库用户：" & currentUser

额外建议 #

• 密码加密存储：不要在tblUser中明文存储密码，建议用Access的EncryptByPassPhrase函数加密后存储，验证时也用相同方式加密输入的密码再匹配，提升安全性。
• 替代方案：全局变量：如果你偏好使用全局变量，可以在标准模块中定义Public g_CurrentDBUser As String，登录成功时赋值g_CurrentDBUser = inputUsername，后续直接调用g_CurrentDBUser即可，但要注意：全局变量在Access遇到未处理错误时可能会丢失值，TempVars更可靠。

内容的提问来源于stack exchange，提问作者Jamila