1

我找到了一些简洁的代码（实际上是通过这里）来获取当前登录到 Windows 的用户的用户名。

假设我有一张名为AdminEntry. 我希望将AdminEntry表设置为表单的记录源，因此用户将通过表单在该表上进行数据输入。他们创建并完成数据输入的任何记录也将在该记录上标记他们的用户名，以便我们可以跟踪属于谁的内容。

不知道我将如何将该用户名字符串推入表中，或者最好的方法。

也许如果该AdminEntry表具有以下字段：

| UserName | Field1 | Field2 |
|          |        |        |

用户可以只使用表单在Field1和上进行数据输入Field2：

| UserName | Field1 | Field2 |
|          |  data  |  data  |

然后保存按钮上的事件可能会在UserName将完整记录保存到AdminEntry表中之前将用户名字符串拉到字段中：

| UserName | Field1 | Field2 |
|   data   |  data  |  data  |

虽然不知道如何通过该用户名字符串，所以会喜欢一些帮助/指针！

4

1 回答 1

2

将文本框 , 添加txtUserName到表单并将其绑定到UserName字段。您可以将文本框的.Visible属性设置为No。

然后将该fOSUserName()函数的值分配给txtUserName表单的更新前事件。注意更新前也与表单插入一起发生，因此当您添加新记录和修改现有记录时，此方法将存储当前用户名。

Private Sub Form_BeforeUpdate(Cancel As Integer)
    ' Me.txtUserName = CreateObject("WScript.Network").UserName
    Me.txtUserName = fOSUserName
End Sub
于 2013-04-19T13:18:11.117 回答