使用Access VBA中的新DataEntry表填充字段

Question

我正在尝试使用VBA在提交新记录时填充字段。我将dataentry设置为yes，因此每次打开表单时都会出现一条新记录，但我只能获取填充的用户名

Private Sub Form_Load().
    Me.Submitter = CreateObject("WScript.Network").UserName
End Sub

用户名显然是第一次出现，但是在最后一个字段之后，您点击TAB并开始新记录，但没有用户名。在每次新记录之后，我是否需要强制关闭表单并重新打开？或者是我缺少的东西。

提前致谢

Answer 1

这是一个短暂的问题。通过搞乱，我发现当你使用Dirty而不是Load时，它会起作用。

Private Sub Form_Dirty(Cancel As Integer)
    Me.Submitter = CreateObject("WScript.Network").UserName
    Debug.Print Me.Submitter
End Sub

我甚至将Debug.Print放在那里以确保它不会一直寻找每次按键或更改字段重新填充该字段，而事实并非如此。只要我打开表单并开始输入数据，第一次击键就会填充我的用户名，直到下一条记录为止。