필드에 Access VBA의 새 DataEntry 폼 채우기

Question

새 레코드를 제출할 때마다 VBA를 사용하여 필드를 채우려고합니다. 나는 DATAENTRY 그래서 새로운 기록이 양식을 열 때마다 나타납니다 yes로 설정,하지만 난 단지

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

사용자 이름으로 채우려면 사용자 이름을 얻을 수 있습니다 분명 오른쪽 첫 번째 시간을 표시하지만, 마지막 필드 후 , 당신은 TAB을 누르고 새 레코드가 시작되지만 사용자 이름은 없습니다. 새로운 기록이있을 때마다 양식을 닫고 다시 열어야합니까? 아니면 제가 빠진 것이 있습니다.

미리 감사드립니다.

Answer 1

글쎄요, 짧은 질문이었습니다. 주위를 어지럽 혀서 Load 대신 Dirty을 사용할 때 발견되었습니다.

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

이 난 확실히는 지속적으로 각 키 입력으로 해당 필드를 다시 채울 찾고 또는 필드의 변경되지 않은 있도록 거기에 Debug.Print을 넣어, 그것은하지 않습니다. 양식을 열고 데이터 입력을 시작하자마자 첫 번째 키 입력이 내 사용자 이름을 채우고 다음 레코드까지 완료됩니다.