Aşağıdaki kodu sil tuşunun olay yordamına ekleyiniz.
Private Sub btn_sil_Click()
If MsgBox("Seçilen kaydı silmek istiyor musunuz?", vbYesNo, "GERİ ALMA UYARISI") = vbYes Then
DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE FROM tbl_revizyon WHERE rev_id=" & Me.txt_rev_id
DoCmd.GoToRecord , , acNewRec
DoCmd.SetWarnings True
Me.Requery
Else
Me.Undo
Exit Sub
End If
End Sub