If you want to use that code, try this:
DoCmd.GoToRecord , , acNext
if isnull(Me.Party_Type_ID) then
DoCmd.GoToRecord , , acPrevious
MsgBox "End of Record", vbOKOnly
End If
As long as that field is not left null when added, it should work. It probably would...