Verileri korumak

12/03/2014, 20:03

kenan827

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.
29/05/2014, 23:02

ozanakkaya

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
09/06/2014, 19:35

kenan827

Çok teşekkürler hocam.