+- 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ığı: Şifreleme Hk. (/konu-sifreleme-hk.html)
Şifreleme Hk. - notrino - 02/05/2016
Merhabalar,
Ekli örneğimde Form2 de bulunan butona bastığımda şifre sorsun, şifreyi doğru girdiğimde Form1 açılsın, yanlış girdiğimde açılmasın. En basit nasıl yapabilirim? Tşk..
Cvp: Şifreleme Hk. - ozanakkaya - 02/05/2016
Butonun tıklandığında olayına aşağıdaki kodu ekleyiniz.
Dim Sifre, DogruSifre As Variant
Sifre = InputBox("Şifreyi Yazınız", "Şifre?", , , , "", 0)
DogruSifre = "accesstr.net"
Select Case Len(Sifre)
Case 0
Exit Sub
Case Else
If Sifre = DogruSifre Then
DoCmd.OpenForm "Form1", acNormal
Else
MsgBox ("hatalı şifre yazdınız")
Exit Sub
End If
End SelectCvp: Şifreleme Hk. - notrino - 02/05/2016
Teşekkürler..