AccessTr.neT

Merhaba arkadaşlar ekli dosyamda girdiğim Müşteri bilgilerini ve satışları silmek veya değiştirmek istediğim zaman parola istesin. Parolayı girmeden silme ve değiştirme yapmamıza izin vermesin. Bu konuda yardımlarınızı bekliyorum yardımlarınız için şimdiden teşekkürler.

Kullanıcı Adı: AHMET
Şifre           : 111

---

Arkadaşlar parola işlemini MsgBox a göre bir kod yazabilirmisiniz.

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

Çok teşekkürler hocam.