Or by using cmdOpenForm button then insert;
DoCmd.OpenForm "FrmEventNewTrackPart": DoCmd.GoToRecord , , acLast
MsgBox "FormLoaded goto LastRecord... " _
& vbCrLf & "ID: " & Forms![FrmEventNewTrackPart]![ID] & "= " _
& Forms![FrmEventNewTrackPart]![ranyfield], vbInformation