+- 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ığı: Silmeden önce şifre isteme hk (/konu-silmeden-once-sifre-isteme-hk.html)
Silmeden önce şifre isteme hk - osman06 - 31/01/2009
aşağıdaki silme koduna bi şifre vermek istiyorum silmeden önce şifre sorsun bi kaç deneme yaptım ama olmadı
Private Sub Komut82_Click()
On Error GoTo Err_Komut82_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Komut82_Click:
Exit Sub
Err_Komut82_Click:
MsgBox Err.Description
Resume Exit_Komut82_Click
End Sub
Cvp: Silmeden önce şifre isteme hk - alpeki99 - 31/01/2009
Silme işlemini bir Prosedür veya fonksiyon olarak kaydedin. Silme butonuna tıklayınca soruyu sorsun If ile kontrol ettirin eğer cevap doğru ise Prosedürü çağırıp silme işlemini yaptırın eğer cevap yanlışsa zaten Else kısmına Ceyap yanlış diye bir mesaj verdirip silmeden kapatabilirsiniz.
Cvp: Silmeden önce şifre isteme hk - osman06 - 31/01/2009
hocam aşağıdaki gibi bişey yaptım ama
Private Sub Komut82_Click()
DoCmd.GoToRecord , , acNewRec
Dim Şifre
Şifre = InputBox("Şifreniz")
Select Case Şifre
Case "SKM06"
End Select
On Error GoTo Err_Komut82_Click
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Exit_Komut82_Click:
Exit Sub
Err_Komut82_Click:
MsgBox Err.Description
Resume Exit_Komut82_Click
End Sub
Cvp: Silmeden önce şifre isteme hk - mehmetdemiral - 31/01/2009
Private Sub Komut82_Click()
sifre = "12345" 'şifreyi başka bir yerden almak isterseniz değişken tanımlayıp yapabilirsiniz.
On Error GoTo Err_Komut82_Click
cevap = InputBox("Lütfen şifreyi yazınız", vbOKOnly, "ŞİFRE GİRİN")
If cevap = sifre Then
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
Else
MsgBox "şifre kabul edilmedi", vbOKOnly, "ŞİFRE YANLIŞ"
End If
Exit_Komut82_Click:
Exit Sub
Err_Komut82_Click:
MsgBox Err.Description
Resume Exit_Komut82_Click
end sub
Cvp: Silmeden önce şifre isteme hk - osman06 - 31/01/2009
hocam tşk elinize sağlık
Cvp: Silmeden önce şifre isteme hk - mehmetdemiral - 31/01/2009
Yazdılarınızı görmeden yazmışım. Pardon.