2 - forma "silme" düğmesi eklendi, Silme kodu
Private Sub BtnSil_Click()
If Me.Liste0.ListIndex < 0 Then MsgBox "kayıt seçilmemiş": Exit Sub
xSil = MsgBox("İlgili Kaydı Silmek istediğinize Emin misiniz?", vbQuestion + vbYesNo + vbDefaultButton2, "Kayıt Silme Uyarısı")
If xSil = vbYes Then CurrentDb.Execute "delete * from sayfa1 where [Kimlik]=" & Me.Liste0.Value: Me.Liste0.Requery
End Sub