Private Sub Liste_AfterUpdate()DoCmd.RunCommand acCmdSaveRecordMe.Liste.RequeryDoCmd.GoToRecord , , acNewRecEnd Sub