Skip to main content

AccessTr.neT


Şifreleme Hk.

Şifreleme Hk.

#1
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..
.zip Şifreleme Hk..zip (Dosya Boyutu: 24,12 KB | İndirme Sayısı: 4)
Cevapla
#2
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
Cevapla
#3
Teşekkürler..
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da