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

Question

是否存在与Excel相同的Excel代码Application.UserName以自动将文本框填充为默认值？

根据来自HansUp的反馈，我修改如下

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

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

Answer 1

访问＆＃39; CurrentUser()函数返回Access安全帐户名称，该名称将是＆＃34; Admin＆＃34;除非您已设置用户级安全性。

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

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

? Environ("USERNAME")
hans

虽然这种方法不安全，但它可能适合您的目的：加载一个允许用户更改的默认值。但是，安全设置可能不允许您直接将其用作文本框的控件源。