如何在MS Access 2007中获取登录的用户名？

Question

我想在MS Access 2007中记录用户名，我写了那段代码

txt = ENVIRON("username")

但是它给了我windows的用户名，我已经创建了一个用户表tblUser

请帮忙

Answer 1

尝试类似：

Debug.Print DLookup("[Logged Name]", "tblUsers", "[username]='" & Environ("Username") & "'")

我的表tblUsers有2个字段：字段用户名是Environ用户名，字段Logged Name是Access内用户的名称。根据您的需要调整代码。

Answer 2

当您使用Access 2007时，您可以使用TempVars。当您的用户登录到您的访问应用程序时，您可以将他们登录的用户名捕获为临时变量，然后在登录会话期间随时访问该用户名。

假设他们填写了用户名和密码后必须单击“确定”按钮或类似按钮，将其放入该按钮的onClick事件中 -

TempVars.Add "UserName", Me.YourUserNameField

然后，您可以使用

检查代码中任何位置的用户名

=[TempVars]![EmpName]

Answer 3

解决方案：

在代码按钮登录中添加变量

Private Sub login_Click()
Dim TempID As TempVars 
... 
TempVars!TempID = Me.Username.Value
..
..
End Sub

然后在另一种形式我放了一个文本框 文本框的属性表 - ＆gt;姓名＆＃39; txt欢迎＆＃39;，控制来源 - ＆gt;表达式生成器：[TempVars]！[TempID]