AccessTr.neT

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..

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..