DoCmd.RunSQL "DELETE ÖgrenciListesi.SıraNo,* FROM ÖgrenciListesi WHERE ÖgrenciListesi.SıraNo='" & [Forms]![FrmTümListe]![SıraNo] & "'"
Şeklinde kod eklemişsiniz ancak TümListe isimli formda SıraNo adında alan yok.
OgrList isimli liste kutusunun satır kaynağındaki sorguda ilk sütuna SıraNo alanını ekleyip sil butonundaki ilgili kodu da
DoCmd.RunSQL "DELETE ÖgrenciListesi.SıraNo,* FROM ÖgrenciListesi WHERE ÖgrenciListesi.SıraNo=" & Me.OgrList & ""
şeklinde değiştirmelisiniz.