DoCmd.SetWarnings False
bunuda sorguyu çalıştırma sonrasına ekleyin.DoCmd.SetWarnings True
komut14 butonun click olayını alttaki kod ile değiştirin.
DoCmd.RunCommand acCmdSaveRecord
Liste11.Requery
DoCmd.SetWarnings False
DoCmd.OpenQuery "Sorgu1", acViewNormal, acEdit
DoCmd.SetWarnings True
DoCmd.RunCommand acCmdRecordsGoToNew