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..
Şifreleme Hk.
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 Select
Teşekkürler..
Konuyu Okuyanlar: