+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Verileri silmek icin sifre sorsun (/konu-verileri-silmek-icin-sifre-sorsun.html)
Verileri silmek icin sifre sorsun - moskovic - 08/11/2010
Merhabalar,
kaydi sil dugmesine bastigimda benden sifre sorsun sifrenin dogru girilmesi durumunda kayit silme islemi gerceklessin.
bunu nasil yapabiliriz acaba ?
Cvp: Verileri silmek icin sifre sorunsun - Kur@l - 08/11/2010
Sayın moskovic;
Aşağıdaki kodu düğmenin kodu ile değiştirin istediğiniz olacaktır.
Tabi bu programınızın diğer modülleri ile entegre edilebilir. Örneğin kullanıcı girişi modülünüz varsa oradaki şifreyi kullanabilirsiniz.
Kolay gelsin.
Private Sub Komut12_Click()
On Error GoTo Err_Komut12_Click
Dim sifre As String
sifre = "www.accesstr.net"
If InputBox("Silme Şifresini Giriniz") = sifre Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
MsgBox "Hatalı Şifre"
Exit Sub
End If
Exit_Komut12_Click:
Exit Sub
Err_Komut12_Click:
MsgBox Err.Description
Resume Exit_Komut12_Click
Cvp: Verileri silmek icin sifre sorunsun - C*e*l*o*y*c*e - 08/11/2010
ek olarak
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70şeklindeki kodları
DoCmd.SetWarnings False
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
DoCmd.SetWarnings TrueCvp: Verileri silmek icin sifre sorunsun - Kur@l - 08/11/2010
Teşekkürler Celoyce Hocam...