レコードがアクセスサブマクロに保存されているかどうか確認します。

Question

空白のレコードでのみ実行したいフォームにAccessマクロがあります。レコードが保存されているかどうかを確認するにはどうすればよいですか。 Me.dirtyプロパティは、保存されたレコードが変更または変更されているかどうかを確認するため、私にとっては機能しません。

Private Sub FIND_MEMBER_AfterUpdate() 
    Me.FIRST_NAME = DLookup("[FIRST_NAME]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'") 
    Me.MID_INIT = DLookup("[MID_INIT]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'") 
    Me.LAST_NAME = DLookup("[LAST_NAME]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'") 
End Sub 

私は解決策持っていることがあります。

プライベートサブFIND_MEMBER_AfterUpdateを（）

If Me.NewRecord = True Then 


Me.FIRST_NAME = DLookup("[FIRST_NAME]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'") 
Me.MID_INIT = DLookup("[MID_INIT]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'") 
Me.LAST_NAME = DLookup("[LAST_NAME]", "CM_ROSTER", "[SOC_SEC_NUM] = '" & Me.SOC_SEC_NUM & "'") 



Else 

GoTo exit_sub 

End If 

exit_sub：

End Subの

Answer 1

それはあなたが探しているプロパティのように聞こえますフォームの.NewRecordプロパティです。これは、新しいレコードが保存されるまで真です。