Ekteki dosyamda Silme kodlarını tasarladım fakat Kaydet ve düzenleme kodlarını ayarlayamadım.Bu konuda yardımlarınızı bekliyorum.
Sil kodunda da cok başarılı olduğum söylenemez

If MsgBox("Kaydetmek istiyor musunuz? (hayır'a tıklarsanız geri alır)", vbYesNo, "Kaydet") = vbYes Then
DoCmd.RunCommand acCmdSaveRecord
DoCmd.GoToRecord , , acNewRec
Else
Me.Undo
Cancel = True
End If
DoCmd.RunCommand acCmdSelectRecord
DoCmd.RunCommand acCmdDeleteRecord
FrmTümListe.OgrList.Requery
Forms!FrmTümListe.OgrList.Requery