Private Sub Komut153_Click()

On Error GoTo Err_Komut153_Click

Dim Sifre As String

Sifre = "1"

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 "Tebrikler Silme Başarılı..."

Exit Sub

End If

 

Exit_Komut153_Click:

    Exit Sub



Err_Komut153_Click:

    MsgBox Err.Description

    Resume Exit_Komut153_Click

End Sub

KAYIT SİL Butonunun VB koduna bunları uyarla, bende ki programda iyi iş görüyor.