vba - 在 Access VBA 中使用新的数据输入表单填充字段

Question

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

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 放在那里，以确保它不会在每次击键或更改字段时不断地重新填充该字段，但事实并非如此。一旦我打开表单并开始输入数据，第一次击键就会填充我的用户名，直到下一条记录。