在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在那裏，以確保它不是一直在尋找重新填充該字段，每個按鍵或領域的變化，而事實並非如此。只要我打開表單並開始輸入數據，第一次按鍵就會填充我的用戶名，直到下一條記錄完成。