silme butonun tıklandığında olayına;

On Error GoTo Err_Komut153_Click



Dim sifre As String

sifre = "7"

If InputBox("Lütfen Silme Şifresini Giriniz") = sifre Then

DoCmd.SetWarnings False

DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70

DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70

DoCmd.SetWarnings TrueElse

MsgBox "Aferin, Silme Başarılı..."

Exit Sub

End If



Exit_Komut153_Click:

   Exit Sub



Err_Komut153_Click:

   MsgBox Err.Description

   Resume Exit_Komut153_Click