vba - 在 Access VBA 中使用新的 DataEntry 表单填充字段

Question

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

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

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

提前致谢

score 1 · Accepted Answer

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

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

我什至把Debug.Print它放在那里以确保它不会不断地在每次击键或更改字段时重新填充该字段，但事实并非如此。一旦我打开表单并开始输入数据，第一次击键就会填充我的用户名，并且一直到下一条记录为止。

1 回答 1