ms-access-2003 - MS-Access 活动用户名自动填充文本框

Question

是否存在与 Excel 代码 Application.UserName 等效的 Access 来自动填充文本框作为默认值？

根据 HansUp 的反馈，我进行了如下修改

Private Sub Form_Load()
Me.LastChgUser = Excel.Application.UserName
End Sub

作为表单的加载事件。我现在收到一个编译错误：找不到方法或数据成员。Txt 框“LastChgUser”位于子表单“Staffing”上，作为“Associate Lookup”的一部分

Answer 1

Access'CurrentUser()函数返回 Access 安全帐户名称，除非您设置了用户级安全性，否则它将是“Admin”。

您可以使用 Windows API 来获取当前 Windows 用户的名称。尝试Get Login namefOSUserName()中的功能。

另一种选择是Environ()函数：

? Environ("USERNAME")
hans

尽管这种方法不安全，但它可能足以满足您的目的：加载允许用户更改的默认值。但是，安全设置可能不允许您直接将其用作文本框的控制源。