OK... There may be a cleaner way to do it, but this is what I came up with.
Private Sub NewRec_Click()
On Error GoTo Err_NewRec_Click
DoCmd.GoToRecord , , acLast
DoCmd.GoToRecord , , acPrevious, 6
DoCmd.GoToRecord , , acNewRec
Me.Family_Number.SetFocus
Exit_NewRec_Click:
Exit Sub
Err_NewRec_Click:
MsgBox Err.Description
Resume Exit_NewRec_Click
End Sub